Hi,

You find something useful on this page (it was a bit high-powered for
me):
http://techrepublic.com.com/5100-3513-5800329.html

The way I allow for toggling is to put a true/false value in the cell
under the macro button (so it is hidden) eg b1 & test this value at the
start of the macro... A bit simpler but it works for me.

sub ToggleButton ()
If ActiveSheet.Range("B1") = True Then
'code to hide info... b/c it is already showing
Else
'code to show info... b/c it is not currently showing
End If
'to toggle value in cell
ActiveSheet.Range("B1").Value = Not (ActiveSheet.Range("B1").Value)
End sub


Hth,
Rob Brockett
NZ
Always learning & the best way to learn is to experience...


--
broro183
------------------------------------------------------------------------
broro183's Profile: http://www.excelforum.com/member.php...o&userid=30068
View this thread: http://www.excelforum.com/showthread...hreadid=502848