Vba to hide columns based on todays date

[Krs1527]

Can anyone suggest a vba to hide columns based on todays date. I have 12 months of data but only want to show current month, last 3 months or last 12 months based on checkbox

 

[fadee2]

Hi Krs1527,

Welcome to board.


I would suggest providing a bit more information in regards to the structure of your worksheet/data. That would make it easier for everyone to suggest solutions rather then working on assumptions.

Anyway, assuming you have dates in 1st row from column B to D as (1-1-21, 1-2-21, 3-1-21), try the following

Sub hide_Col()
Dim rng As Range

Set rng = ActiveSheet.Range("b1:d1")

For Each cell In rng
    If Month(cell) = Month(Date) Then
        Columns(cell.Column).Hidden = True
    End If
Next cell

End Sub

hth...