Shapes do not support tooltips, however you could add a dummy hyperlink with
a tooltip, eg

' add say a rectangle to the sheet
Sub Test()
Dim shp As Shape

Set shp = ActiveSheet.Shapes(1)

ActiveSheet.Hyperlinks.Add shp, "", "", _
ScreenTip:="Hello from " & shp.Name

End Sub

As written, the Address and SubAddress arguments are empty, though you could
of course include a real link.

Regards,
Peter T


"Dale Fye" wrote in message
...
I'm using Access VBA to build an Excel Workbook which visually depicts a
bunch of project timelines.

I am creating lines which depict the duration of the project, along with
boxes and several other shapes which depict key events along the
timelines. I would like to add a control tip text or something like that
for each of these shapes, so that when a user hovers their mouse over the
shape, it can display additional information.

How would I do this using VBA?

Dale Fye