Sure there is, try this:
If ActiveSheet.Shapes("CommandButton1").Visible = True Then
ActiveSheet.Shapes("CommandButton1").Visible = False
ElseIf ActiveSheet.Shapes("CommandButton1").Visible = False Then
ActiveSheet.Shapes("CommandButton1").Visible = True
End If
--
Bearacade
------------------------------------------------------------------------
Bearacade's Profile:
http://www.excelforum.com/member.php...o&userid=35016
View this thread:
http://www.excelforum.com/showthread...hreadid=554655