scroll linked cell to upper left position

Originally Posted by snb

I'd prefer:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 Application.Goto Evaluate(Target.SubAddress), True
End Sub

In the codemodule of sheet1

I tried this code in both code modules of the Workbook and Sheet1 but it doesn't work. I've also tried creating a module and putting it in there but no luck. I'm trying anything at this point. I've tried several other pieces of code with no luck. I'm probably putting it in the wrong place. If that's the case, can someone tell show me where it goes. I even downloaded a spreadsheet that has this code init and it worked at first but then stopped working. I have no idea why?

I've attached a sample spreadsheet of what I'm trying to do.

Please help!

Thanks,
George