Using Excel 2003

I have an object (and AutoShape) with the following macro attached to it,
used to take the user to another worksheet. The user clicks on the object
and the code moves then as directed.

Sub GoToTFMWorksheetPage1()
Application.ScreenUpdating = False
Sheets("TFM Worksheet Page 1").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.Goto Reference:=Range("B100"), Scroll:=False
ActiveWindow.Zoom = 100
Application.ScreenUpdating = True
End Sub

In addition, I need the user to be able to read a text message, similar to a
hyperlink message, telling him the title of the worksheet they are about to
go to. For example, when the user puts the cursor over the object, the
cursor context changes to the pointing finger. I want to have a Text Box
come up at that time. If the user clicks on the object, they will go to the
worksheet.

The technique used to do this would be used multiple times throughout the
worksheets in the workbook.

Would I add code to the above? What would the code be?