Delete everything from excel sheet that's not containing a specific word

[Dan198025]

Hello Everyone

I have an excel worksheet where i want to delete everything except rows and columns that contain word "30 mins".
Appreciate any advice.

Thanks

 

[Peter_SSs]

Can I email the sheet please.

No, sorry, #4 of the Forum Rules prohibits that.

 

[Dan198025]

No, sorry, #4 of the Forum Rules prohibits that.

I tried this but it deletes everything

Sub SaveSomeRows()
Dim N As Long, L As Long, r As Range
Dim s As String, v As String
Set r = ActiveSheet.Range("D3", ActiveSheet.Range("D65536").End(xlUp))
N = r.Count
s = "30 mins"
For L = N To 1 Step -1
v = LCase(r(L).Value)
If InStr(1, v, s) = 0 Then
r(L).EntireRow.Delete
End If
Next L
End Sub