Macro to hide columns that are outside current month

[asheets]

Hello!

I have searched far and wide for the perfect Code. I am very new to the use of VBA and Macros but I dream big when designing spreadsheets.

I have a sheet that has names going down the rows (A7:A257) with dates (month - year) going across the columns (E5:AN5).

I would like to run a macro which looks at each dated column and hides all columns not in the cureent month. (Ex: It's November. Hides months Jan-Oct and Dec)


Many thanks

 

[benpauley]

Hi

You can use the following:

Sub HideMonths()

    Dim i As Long
    
    For i = 5 To 40
        If VBA.Format(Cells(5, i), "mmm-yyyy") <> VBA.Format(Date, "mmm-yyyy") Then
            Columns(i).Hidden = True
        End If
    Next


End Sub

Let me know how it goes.

 

[asheets]

Worked perfectly! Thank you so much!