hide-unhide
Try a Toggle Button and this.
Option Explicit
Private Sub ToggleButton1_Click()
If ActiveSheet.Name = ("Sheet1") Then
If Worksheets("Sheet1").Columns("C:T").Hidden = False Then
Worksheets("Sheet1").Columns("C:T").Hidden = True
ElseIf Worksheets("Sheet1").Columns("C:T").Hidden = True Then
Worksheets("Sheet1").Columns("C:T").Hidden = False
End If
End If
End Sub
HTH
"hoysala" wrote:
i have written the following code to hide a column
can anybody help me altering the program to swap between hide and
unhide using the same CommandButton ?
Private Sub CommandButton5_Click()
If ActiveSheet.Name = SHEETNAME Then
If Worksheets(SHEETNAME).Columns("c:t").Hidden = False Then
Worksheets(SHEETNAME).Columns("c:t").Hidden = True
End If
End If
End Sub
|