Hi Sodaboy,

Try:

'================
Private Sub cmdShowHide_Click()
Me.Columns("N:V").Hidden = _
Not (Me.Columns("N:V").Hidden = True)
With cmdShowHide
If .Caption = "Show" Then
.Caption = "Hide"
Else
.Caption = "Show"
End If
End With

End Sub
'================

---
Regards,
Norman



"sodaboy" wrote in
message ...

I have twelve worksheets within a workbook, one for each month of the
year. The dates are listed down column A. I have ten adjacent columns
with data which I need to show / hide on a toggle button; then I have
to duplicate this ten times across the sheet and again duplicate the
entire thing for each sheet. I have the following code which works but
wondered if anyone can suggest a better way.

If cmdShowHide.Caption = "Hide" Then
Worksheets("January").Columns(14).Hidden = True
Worksheets("January").Columns(15).Hidden = True
Worksheets("January").Columns(16).Hidden = True
Worksheets("January").Columns(17).Hidden = True
Worksheets("January").Columns(18).Hidden = True
Worksheets("January").Columns(19).Hidden = True
Worksheets("January").Columns(20).Hidden = True
Worksheets("January").Columns(21).Hidden = True
Worksheets("January").Columns(22).Hidden = True
cmdShowHide.Caption = "Show"
ElseIf cmdShowHide.Caption = "Show" Then
Worksheets("January").Columns(14).Hidden = False
Worksheets("January").Columns(15).Hidden = False
Worksheets("January").Columns(16).Hidden = False
Worksheets("January").Columns(17).Hidden = False
Worksheets("January").Columns(18).Hidden = False
Worksheets("January").Columns(19).Hidden = False
Worksheets("January").Columns(20).Hidden = False
Worksheets("January").Columns(21).Hidden = False
Worksheets("January").Columns(22).Hidden = False
cmdShowHide.Caption = "Hide"
End If

I am a beginner at this so apologies if this is a bit simplistic.

Many thanks.


--
sodaboy
------------------------------------------------------------------------
sodaboy's Profile:
http://www.excelforum.com/member.php...o&userid=27467
View this thread: http://www.excelforum.com/showthread...hreadid=469807