Delete rows that don't meet criteria

[redspanna]

Hi all

Very simple question, but unsure of code...

look down column B of shee1 and delete any ROW that DOESN'T contain the content T5

many thanks

 

[Oeldere]

Use a filter on column B and select everything (except T5).

After that delete all rows.

 

[VoG]

Try

Sub ColB()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("B" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If .Range("B" & i).Value <> "T5" Then .Rows(i).Delete
    Next i
End With
End Sub