this should hide/unhide all shapes on the active sheet
Sub getshapenames()
For Each sh In ActiveSheet.Shapes
sh.visible=not sh.visible
Next sh
End Sub


--
Don Guillett
SalesAid Software

"2007-User" wrote in message
...
Hi,

I have some pictures on my worksheet named object 39 and object 40 and ...
I need to know how I can make them to be visible or invisible base on a
cell's value ?

Thanks in advance.