Delete Columns that

[eponcedeleon]

I am trying to delete columns that do not have certain names in header.

Thi is my code

Sub Delete_Specifc_Column()
Dim LastColumn As Long
LastColumn = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

  Dim rng As Range
  Set rng = ActiveSheet.UsedRange

Set rng = Range("A1:A" & LastColumn)

For Each cell In rng
abc = cell.Value
   If cell.Value2 <> "Due Date" Or cell.Value2 <> "Task " Or cell.Value2 <> "Contact" Then
      ' MOVE TO NEXT CELL
   Else
    cell.EntireColumn.Delete
   End If
Next
End Sub

Here are the column headers. I only want to keep the columns "Due Date", "Task" and "Contact"

I cant figure out why my code is not working.

 

[footoo]

Sub Delete_Specifc_Column()
Dim LastColumn As Long, rng As Range, c%
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Set rng = Range([A1], Cells(1, LastColumn))
For c = rng.Count To 1 Step -1
    If rng(c) <> "Due Date" And rng(c) <> "Task " And rng(c) <> "Contact" Then _
        rng(c).EntireColumn.Delete
Next
End Sub

 

[eponcedeleon]

thank you, this was very helpful11

 

[footoo]

If the columns to be retained are always in the same place :

Sub Delete_Specifc_Column()
Union([C1:D1], [F1].Resize(, Columns.Count - 5)).EntireColumn.Delete
End Sub