JE,

Thanks for the code modification. I really appreciate it!

Bob


"JE McGimpsey" wrote:

As an option, you can also use a single macro as a toggle:

Public Sub TogglePicture1()
With ActiveSheet.Shapes("Picture 1")
.Visible = Not .Visible
End With
End Sub


In article . com,
NC wrote:

Sub macro2()
'Hide Picture
ActiveSheet.Shapes("Picture 1").Visible = False
End Sub

Sub macro3()
'Make picture visible
ActiveSheet.Shapes("Picture 1").Visible = True
End Sub