[Tricky Macro] Delete any column that is *not* named X, Y or Z

[Safety]

Hey guys!

I have a tricky macro question for Excel:

How would you delete any and all columns that are not named for example "Apple" "Orange" and "Banana"? Complicating matters is the fact that the position of those 3 columns will change randomly. The column named "Apple" could be in column C on one spreadsheet but would be on column E on another.

Any help would be greatly appreciated.

-S

 

[VoG]

Try

Sub DelCols()
Dim LC As Long, i As Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = LC To 1 Step -1
    If IsError(Application.Match(Cells(1, i).Value, Array("Apple", "Orange", "Banana"), 0)) Then Columns(i).Delete
Next i
End Sub