Hoi,

ik gebruik dit om om bepaalde cellen met tekst te verwijderen

Dim i As Long
With ActiveWorkbook.Sheets(2)
     For i = 100000 To 1 Step -1
        If .Cells(i, "C") = "Test" Then
            .Cells(i, "C").EntireRow.Delete
        End If
        '-------------------------------------------------
       
      Next i
End With
End Sub

nu heb ik TBG-test-1234
              TBG-test-4567
enz, enz
ik dacht als ik nu misschien TBG- zou doen dat die dan alles wat met TBG- begon het ook zou werken
maar helaas

is hier misschien een oplossing voor?

Alvast super bedankt

@Pagadder

Super werkt perfect 

Ik heb je code nog eens herbekeken.
Ik zou het volgende gebruiken.

Sub test()
Dim i As Long, lr As Long
With ActiveWorkbook.Sheets("Blad1")
lr = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = lr To 1 Step -1
        If .Cells(i, "C") Like "*test*" Then .Cells(i, "C").EntireRow.Delete
    Next i
End With
End Sub
In plaats van uw 100000 rijen af te lopen loopt de code van de  laatst gebruikte rij waar in kolom C iets is ingevuld waardoor de macro sneller is.

Mooi zo en dank voor de terugkoppeling