Add Tooltip to Shape with Macro to include Text and cell value

[ADawn]

Hi all,

Hoping someone might be able to assist. I am a novice to macros and I'm not sure if what I want is possible. I found the below code to add a toolTip to a shape. Is it possible to expend on this to also include some cell values?

For Example: My shape currently includes the tooltip (Mixing Pad) but I also want to include cell D2 value, possibly with D2 text

So the tooltip would show

Mixing Pad. Total 5

Thanks


Capture.JPG

Sub Oval1_Click()
Dim selectedShapes As Shape
Dim toolTipText As String
 
toolTipText = InputBox( _
                Prompt:="Input a ToolTip for the selected shapes.", _
                Title:="ToolTip Input")
 
For Each selectedShapes In Selection.ShapeRange
 
    ActiveSheet.Hyperlinks.Add _
        Anchor:=selectedShapes, _
        Address:="", _
        ScreenTip:=toolTipText
        
Next
 
End Sub