Sub Macro1()
With ActiveSheet.Range("A1")
If .Hyperlinks.Count > 0 Then
With .Hyperlinks(1)
If UBound(Split(.SubAddress, "\")) <> 0 Then
.Follow NewWindow:=False, AddHistory:=True
Else
Dim ws As String
ws = Split(.SubAddress, "!")(0)
If Left(ws, 1) = "'" Then ws = Right(Left(ws, Len(ws) - 1), Len(ws) - 2)
Sheets(ws).Select
Range(Split(.SubAddress, "!")(1)).Select
End If
End With
End If
End With
End Sub