Delete entire Columns based on Date

Hi hftechno,

Try below code ...

Sub test()

With ActiveSheet.UsedRange
   For x = .Columns.Count To 1 Step -1
      If .Cells(1, x) < Application.EoMonth(Date, -1) + 1 Then .Columns(x).Delete
   Next
End With

End Sub

Glad to help & thanks for the added Reps.

Testing 123....And yet another snippet of code that gets Securi walled....

Code.png


I know this is solved...I always try for a non looping option too...See code in file...cannot post...

If Rows below 1 are filled then
Replace this snippet....

With Range("A2").Resize(, Cells(1, Columns.Count).End(xlToLeft).Column)

With this snippet...

With Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(, Cells(1, Columns.Count).End(xlToLeft).Column)