I have a script that deletes all columns unless the header has a specific name (ie baseline, Patch, or Stress)... However, the headers have become more detailed now (they are more that just baseline, Patch, or stress, they now have some date and descriptions in the hader)... So I am curious if there is a easy way to delete all the other columns but keep ones that have those values in the header, but the aren't the actual header names..

This works great, but only if the Header is exactly what's specified .. ..

Sub DelColumnNotInList2()
Dim LastCol As Double
Dim ColCtr As Double
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For ColCtr = 1 To LastCol
        If InStr("Baseline Patch Stess", Cells(1, ColCtr).Text) = 0 Then
            Cells(1, ColCtr).EntireColumn.Delete
            ColCtr = ColCtr - 1
        End If
    Next ColCtr
End Sub