Macro for Hiding one column at a time in a range

  • Thread starter Thread starter GoBucks
  • Start date Start date
G

GoBucks

I am looking for a macro code that I could attach to command buttons on a
worksheet. I have a table beginning on Column L and goes out to Column BJ
which consists of data for Work Week End Dates (1/9 to 12/25). I would like
to have one button hide the first column in the data table (Column L). When
clicked again, it would hide Column M, clicked again it would hide Column N,
etc.

The second button when clicked I would like to unhide all of the columns in
the range (Columns L to BJ).

I am still a novice at macros and VB so any help would be appreciated.
 
GoBucks,

I have assumed that you did not want to unhide L when you hide M....

Sub HideColumns()
Range("L:BJ").SpecialCells(xlCellTypeVisible).Cells(1).EntireColumn.Hidden = True
End Sub

Sub UnhideAllColumns()
Range("L:BJ").EntireColumn.Hidden = False
End Sub

HTH,
Bernie
MS Excel MVP
 
Bernie, Thank You!!! Worked Great!

Bernie Deitrick said:
GoBucks,

I have assumed that you did not want to unhide L when you hide M....

Sub HideColumns()
Range("L:BJ").SpecialCells(xlCellTypeVisible).Cells(1).EntireColumn.Hidden = True
End Sub

Sub UnhideAllColumns()
Range("L:BJ").EntireColumn.Hidden = False
End Sub

HTH,
Bernie
MS Excel MVP
Click to expand...
 
Back
Top