Auto hide columns when date is before today

[Emrytate]

Hi,

I would like to auto hide the columns is the date in row 2 is less than today.

thanks,

MK

[alansidman]

Assume you wish to hide only column B, then this code would work if your date is in cell A2.

Sub HideCol()
Dim d As Date
d = Range("A2")
If d < Date Then
Range("B:B").EntireColumn.Hidden = True
End If
End Sub

[JOHN H. DAVIS]

Another:

Sub emrytate()
Dim i As Long
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
    If Cells(2, i).Value < Date Then Cells(2, i).EntireColumn.Hidden = True
Next i
End Sub