Hyperlink Does Not Cause 'worksheet_activate' Macro To Run

I have the following


Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

updateall = MsgBox("Do you want to update the previous balance?", vbYesNo)
If updateall = vbYes Then
ActiveSheet.Unprotect
' clear previous payments
Range("U3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
' update previous balance
Range("H54").Select
Selection.Copy
Range("G11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D7").Select
ActiveSheet.Protect
End If
Application.ScreenUpdating = True

End Sub

Now, this works just fine if the user clicks the sheet itself. However, generally they are accessing sheets via hyperlinks, which do not seem to activate this code. Is there a better/different way to ensure when the user gets to a sheet via hyperlink, they still see the msgbox?[/b]