Bill,
That did the trick. Relly appreciate your help.
SubSeaGuy
"Bill Manville" wrote:
Try this:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim iChar as Integer
Dim stAddr As String
stAddr = Target.SubAddress
iChar = InStr(stAddr,"!") ' Sheet!Range ?
If iChar0 Then
Sheets(Left(stAddr,iChar-1)).Activate
stAddr = Mid(stAddr, iChar+1)
End If
With ActiveWindow.Panes(ActiveWindow.Panes.Count)
.ScrollRow = Range(stAddr).Row
.ScrollColumn = Range(stAddr).Column
End With
End Sub
I think it should work for links to any sheet in the workbook
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup
|