I really did think there was a menu/shortcut way to do this. However, for
those who want to....

Sub subGoToAddress()

Dim slAddy As String
Dim slSheet As String
Dim slCell As String

slAddy = Mid(Selection.Formula, 2)
slSheet = Mid(slAddy, 1, InStr(slAddy, "!") - 1)
slCell = Mid(slAddy, InStr(slAddy, "!") + 1)
Sheets(slSheet).Activate
Range(slCell).Select

'
****************************************************************************
End Sub

... And pasted on a button seems to work fairly well.
There is no checking done though to see if the formula  really is an address.