I suppose it cannot find the picture and fails on the ActiveSheet
instruction.

No need to select -

Sub test()
s$ = "Rectangle 1"
HideUnhide s, False
Stop
HideUnhide s, True
End Sub

Sub HideUnhide(sName As String, bVisible As Boolean)

ActiveSheet.Shapes(sName).Visible = bVisible
End Sub

Regards,
Peter T
"Marvin" wrote in message
...
I am using Excel 2003 and executed the following macro command;

ActiveSheet.Shapes("P25%").Select
Selection.ShapeRange.Visible = msoFalse

I cannot reverse the process and receive and error if I use msoTrue. I
suppose it cannot find the picture and fails on the ActiveSheet
instruction.
I cannot find any menu item to unhide this picture. HELP!