Peter T
12/14/2006 12:37:00 AM
> 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" <Marvin@discussions.microsoft.com> wrote in message
news:FB351015-B940-4B03-B786-D0E0CC6516BF@microsoft.com...
> 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!