How to unhide a hidden shape

[roscoe]

I have a file with routine that hides a callout when opened assuming that macros are enabled, and unhides when closing the file.

Problem now I'm getting an error that I think is because the number of the shape has changed, but becasue it is hidden I can't find to be sure.

How can I unhide all shapes on the worksheet?

 

[PA HS Teacher]

How about:

<font face=Courier New>  <SPAN style="color:#00007F">Dim</SPAN> S <SPAN style="color:#00007F">As</SPAN> Shape<br>  <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> S <SPAN style="color:#00007F">In</SPAN> Worksheets("Sheet1").Shapes<br>        S.Visible = <SPAN style="color:#00007F">True</SPAN><br>  <SPAN style="color:#00007F">Next</SPAN> S</FONT>

 

[roscoe]

That looks like it should work. Thanks