Apologies - missed a Not
[vba]Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Not IsError(Range("B" & i).Value) Then
If Not Range("B" & i).Value Like "*Manor*" Then Rows(i).Delete
End If
Next i [/vba]
Apologies - missed a Not
[vba]Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Not IsError(Range("B" & i).Value) Then
If Not Range("B" & i).Value Like "*Manor*" Then Rows(i).Delete
End If
Next i [/vba]
Be as you wish to seem
Posting Permissions
Reply With Quote