VBA-code for transition navigation in excel

Question

We are using the transition navigation key (options, advanced) in excel to make sure that when you click on an hyperlink that cell will be "on top of the sheet". However this option is not document specific and each user need to go and click the "transition navigation key" themselves for this to work.

I am very new to vba and still haven't found a way to make it document-specific. I have for example tried:

If Application.TransitionNavigKeys Then 
 keyState = "On" 
Else 
 keyState = "Off" 
End If 

but it doesn't work.

I would be very grateful if anyone has any ideas.

Answer 1

Do you really need the transition navigation key? If you place this code in the WorkBook's code module; when a use clicks a hyperlink the Application will scroll until the ActiveCell is in the top left corner.

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

    Application.Goto ActiveCell, True

End Sub