More efficient way to find and delete columns

Loop back word

Sub DelColumnNotInList1()
Dim LastCol As Long, ColCtr As Long
Application.ScreenUpdating = 0
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For ColCtr = LastCol To 1 Step -1
    If InStr("Text1 Text2 text3 Text4 Text5 Text6 Text7 Text8 Text9 Text10", Cells(1, ColCtr).Text) = 0 Then
            Columns(ColCtr).Delete
    End If
    
    Next ColCtr
   Application.ScreenUpdating = True
End Sub

Thanks so much for that.
I've gone from 3:54 to 1:46 which is excellent.
Since it is now counting backwards, would reversing the order of my search strings have any impact??
Anyone else have any ideas to improve on 1:46???
Thanks again.
I love this forum.