Hide collums that are before the current date

Question

Hello,&nbsp;I wanted to hide the collumns(G2:NG2) that came before the date of today(D2).So for example, today 11/04/2022. All the dates before that should be hiddenBut so far I got this:Dim rng As Range

Set rng = ActiveSheet.Range("G2:NG2")

For Each cell In rng
    If Month(cell) = Month(Date) Then
        Columns(cell.Column).Hidden = True
    End If
Next cellBut it doesn't work the way I want.

hansvogelaar · Accepted Answer

GKE2019&nbsp;
Like this:
    Dim rng As Range
    Dim cell As Range
    Application.ScreenUpdating = False
    Set rng = ActiveSheet.Range("G2:NG2")
    For Each cell In rng
        If cell.Value &lt; Date Then
            cell.EntireColumn.Hidden = True
        Else
            Exit For
        End If
    Next cell
    Application.ScreenUpdating = True

Forum Discussion

Hide collums that are before the current date

1 Reply

Resources