Help! My Macro is only deleting every other column- how to work from right???

[jmthompson]

This macro is skipping columns and I know it's because I should work from the last column back, but I don't have the brain power to fix it, help?

Sub MyMonth()
TheDate = Format(Now, "mmm yy")
LastColumn = Range("IV11").End(xlToLeft).Column
Dim c As Range
        For Each c In Range([P1], Cells("1", Columns.Count).End(xlToLeft))
            If c <> TheDate Then c.EntireColumn.Delete
        Next c

End Sub

 

[Greg Truby]

Any time you delete rows or columns you need to work backwards (right-to-left; bottom-to-top). Generically

for i = rngSomeRange.Rows/Columns.Count to 1 Step -1
     '// «code that does deletion»<DELETION>
Next i