code to center active cell on screen

[kosherboy]

Hi Excel Forum?
I found this code somewhere online that when you activate a sheet it will center the active cell in the middle of the screen.

Private Sub Worksheet_Activate()
Application.Goto reference:=ActiveCell, scroll:=True
With ActiveWindow
i = .VisibleRange.Rows.Count / 2
j = .VisibleRange.Columns.Count / 2
..SmallScroll Up:=i, ToLeft:=j
End With
End Sub

However, this does not work when i click on a hyperlink that's on Sheet2 which refers to Sheet1. For some reason the code does not process the clicking-on-a-hyperlink as a method of activating the sheet.
Is there any way around this issue?
Any help will be greatly appreciated.

Thanks in advance