Macro to Hide Columns

[JDeMaro22]

Hi Everyone!

I'm looking for a macro that will hide 6 columns at a time when I press a button. I want to always keep column A but hide B-G (columns 2-7) when I press a button. This report shows weekly data that users manually input data into for the year, I'd like users to be able to hide previous weeks to make inputting new data easier. Is this something you can help me with?

Thanks,

Josh

Capture.PNG

[HansV]

To hide columns B:G:

Code: Select all

Sub HideB2G()
    Range("B1:G1").EntireColumn.Hidden = True
End Sub

Or do you want to hide different columns each time the button is pressed?

[JDeMaro22]

The first time it would be B-G but the next would need to be H-M and so forth. Is this possible?

[adeel1]

Code: Select all

Sub hide_col()
Dim v As Long

v = Range("b1:z1").SpecialCells(12).Column
Cells(1, v).Resize(, 6).EntireColumn.Hidden = True

End Sub

[HansV]

Thanks, adeel!

[adeel1]

Thx of you and this forum, who is providing great helps.

Adeel

[JDeMaro22]

perfect thank you so much everyone