Hide/Unhide a Shape problem

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

Sorry, I don't understand how to use your post. Since I don't know what is wrong with my code, I'm not sure how to integrate yours. Can you please restate it in context?

Thanks

PS-I'll add #s between tags next time

Thanks Andy, but the object will change. If you are referring to the worksheet, it will be which ever sheet it's on. I'm not sure how to apply your answer. Can you be more specific? I've tried various permutations, but nothing has worked yet.

Geri

To AliGW:
I'm sorry, I just followed the natural flow of your site. I do not intend to flaunt your rules, just unsure as to what your prose means, particularly for a first time user. I did wonder why my code rendered so poorly. Why not just write the formatting into the code? I truly appreciate your site as I have used to to increase my own capabilities for years and years. Unfortunately, my first post was met with truly unhelpful responses and a finger wag! I'll survive, but I wished for better.

Geri

Each call out will have its own Toggle sub. Only the call out number in 2 places would have to change.