
Originally Posted by
vbfbryce
But you don't need to select the columns first, so more like this:
Code:
Sub hideCols()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Range("g1:m1").EntireColumn.Hidden = True
ws.Range("p1").EntireColumn.Hidden = True
ws.Range("t1:z1").EntireColumn.Hidden = True
Set ws = Nothing
End Sub
Bryce you work to hard!
Code:
ActiveSheet.Range("g:m, p:p, t:z").EntireColumn.Hidden = True
Or is it that you get paid by the line?