"Phil Hageman" skrev i melding
...
I'm not familiar with this. How would I do it?

Open the ThisWorkbook module. Paste this in:

Private Sub Workbook_SheetFollowHyperlink(ByVal _
Sh As Object, ByVal Target As Hyperlink)
MsgBox Target.Name
End Sub


Test it. Once you know the prompted Target.Name, say "Go here", rewrite the
code to

Private Sub Workbook_SheetFollowHyperlink(ByVal _
Sh As Object, ByVal Target As Hyperlink)
If Target.Name = "Go here" Then
ActiveWindow.Zoom = 60
End If
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please