Please someone, tell me what I'm doing wrong! I've looked at this until I'm blue in the face! I get a Sub or function does not exist error. I've attached an example. Just click the grey rectangle below the call out.

Thanks a million!


Dim strShapeName As String
Dim shpCallOut As Shape

Sub ToggleShape()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
If Not shpCallOut.Visible Then
ActiveSheet.shpCallOut.Visible = True
Else
ActiveSheet.shpCallOut.Visible = False
End If
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

Sub ToggleCallOut1()
strShapeName = "Callout1"
Set shpCallOut = Shapes(strShapeName)
Call ToggleShape
End Sub