OK, I got one of them to work:

Sub DeleteAltCols()
Dim i As Integer
For i = Columns.Count To 1 Step -1
If i Mod 2 = 0 Then Cells(1, i).EntireColumn.Delete
Next
End Sub

But man, it took like 5 minutes to run. The part where I could tell i
was actually deleting didn't seem to take long at all, but the par
before that took a long time. Any suggestions

--
Message posted from http://www.ExcelForum.com