More efficient way to find and delete columns

Good morning folks,
With lots of help from browsing this forum and asking a few questions I have finally gotten my large macro to work. I have broken it down into pieces and I have a master macro to call each piece. This makes it easier to tweek the behaviour.
Anyway, one of my subroutines searches row one for certain column headers and deletes the columns that don't contain my search criteria.
The thing is there are about one hundred columns and this part of the macro takes just under 4 minutes to run.
Can anyone suggest a way of making it run more efficiently please.

Here is the code. My search criteria usually appear roughly in order so I am going to start by reversing the order in which they are listed in my code.

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

I have actual search items for privacy reasons.

I would appreciate anyones input that could help reduce the runtime of the above routine which as I said is just under 4 minutes.
Thanks in advance.

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.

Since it is now counting backwards, would reversing the order of my search strings have any impact??
No!
Try this one and will be away until this afternoon.

Sub DelColumnNotInList()
Dim i&, LC&, myrng1
     Application.ScreenUpdating = False
     LC = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For i = LC To 1 Step -1
    If InStr("Text1 Text2 text3 Text4 Text5 Text6 Text7 Text8 Text9 Text10", Cells(1, i).Text) = 0 Then
 
        If myrng1 Is Nothing Then
                Set myrng1 = Cells("A", i)
            Else
                Set myrng1 = Union(myrng1, Cells("A", i))
            End If
    End If
Next i
        If Not myrng1 Is Nothing Then
            myrng1.EntireColumn.Delete
        End If
        Application.ScreenUpdating = True
End Sub

Try these lines

If myrng1 Is Nothing Then
                Set myrng1 = Cells(1, i)
            Else
                Set myrng1 = Union(myrng1, Cells(1, i))
            End If
    End If

Remove "1" from 1

Thanks AB33 but still no joy
I changed it to

Sub DelColumnNotInList2()
Dim i&, LC&, myrng1
Set myrng1 = Range("A1")
     Application.ScreenUpdating = False
     LC = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For i = LC To 1 Step -1
    If InStr("Text1 Text2 text3 Text4 Text5 Text6 Text7 Text8 Text9 Text10", Cells(1, i).Text) = 0 Then
 
        If myrng1 Is Nothing Then
                Set myrng1 = Cells(1, i)
            Else
                Set myrng1 = Union(myrng1, Cells(1, i))
            End If
    End If
Next i
        If Not myrng1 Is Nothing Then
            myrng1.EntireColumn.Delete
        End If
        Application.ScreenUpdating = True
End Sub

But it still hangs on the EntireColumn.Delete line with Delete Methon Of Range Class failed
Any suggestions. Thanks very much for your patience.

We need to find another way round.

If InStr("Text1 Text2 text3 Text4 Text5 Text6 Text7 Text8 Text9 Text10", Cells(1, i).Text) = 0 Then
Do you want to delete a column if a cell has these texts, or the other way round?

I want to delete the column if a cell DOES NOT have those texts.
So for example, I have columns with headers saying text1 text 2.... text 100
i want to use the above macro with text1 text 5 text 7 text11 etc, so that I keep just those columns and delete the rest.
If this is too much work, don't worry as you have already reduced the run time from 3:54 to 1:46 with your first suggestion. Thank you.

Try this one. I did not get an error, but not sure if it works

Sub DelColumnNotInList2()
Dim i&, LC&, myrng1
Set myrng1 = Range("A1")
     Application.ScreenUpdating = False
     LC = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For i = LC To 1 Step -1
    If InStr("Text1 Text2 text3 Text4 Text5 Text6 Text7 Text8 Text9 Text10", Cells(1, i).Text) = 0 Then
 
        If myrng1 Is Nothing Then
                Set myrng1 = Cells(1, i)
            Else
                Set myrng1 = Union(Cells(1, i), myrng1)
            End If
    End If
Next i
        If Not myrng1 Is Nothing Then
            myrng1.EntireColumn.Delete
        End If
        Application.ScreenUpdating = True
End Sub

My god man,
You are a genius. Thank you so much. That runs now in 5 seconds!!! I am amazed.
The very last thing I have to do to finish this project is to perform a frequency analysis on my results, and I'm having trouble with the array formula in VBA but that is a question for tomorrow.
Thank you so much for your help.
Regards.

Agentblue,
Glad it has worked for you! Your patience has paid off
You are welcome!