Run Code with having row selected

[Av8tordude]

I have this code that displays msgbox. However its dependent on the row selected. How can I click the red triangle to display the msgbox without having the need to have the row selected?

Sub Callout()
Dim shMsg As Shape, shID
Dim cel As Range

On Error Resume Next
shID = ActiveSheet.Shapes("Callout").ID

If Not IsEmpty(shID) Then
    ActiveSheet.Shapes("Callout").Delete
ElseIf Not Range("S" & ActiveCell.Row).Comment Is Nothing Then
    Set shMsg = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 112.5, 112.5, 150, 1)
    Set cel = Range("S" & ActiveCell.Row)
   
    With shMsg
        .Name = "Callout"
        .TextFrame.Characters.Text = Range("S" & ActiveCell.Row).Comment.Text
        .Left = cel.Left - .Width
        .Top = cel.Offset(1).Top
        .Adjustments.Item(1) = 0.52
        .Adjustments.Item(2) = -0.65
        .TextFrame2.AutoSize = msoAutoSizeShapeToFitText
    End With
End If
End Sub

 

[Tom Urtis]

I don't get 2 things about this you wrote:
"How can I click the red triangle to display the msgbox without having the need to have the row selected?"

Thing 1:
What row not needing to select? The row where the red triangle is, or some other row where you want the red triangle to be located.

Thing 2:
If my "Thing 1" is totally off the target, then that would mean you want to place a red triangle on any row you feel like putting the red triangle on, which is fine, but how the code would know your desired row is the issue, probably solvable with an InputBox to ask the user to input what the destination row for this red triangle should be.

If my "Thing 1" and "Thing 2" are off the mark, then sorry, what you are asking may very well be clear to someone else, but just speaking for myself, you lost me on what you are asking for.