Hi, I have 25 columns.
I need to write a macro which goes through each column and
keeps:
1) Billing
2) GM
3) Total
4) Client
5) Project Name
I guess its something like this, many thks
sub del()
Dim i As Long
Dim aryTest
aryTest = Array("Billing ", "GM", "Total","Client","Project Name")
For i = 25 To 1 Step -1
If Not IsError(Application.Match(Cells(1, i).Value, aryTest, 0)) Then
'Keep
Else
'Delete
End If
Next i
End Sub
Bookmarks