deleting multiple entries macro

I have been working to get this to work as a macro but am getting errors such as expected If. I have also tried using OR and this statement did not work either.

Here is the slop that I currently have:

Sub delete()
'
' delete Macro

'

'
Dim Cell As Range
Dim Rng As Range

Set Rng = ActiveSheet.Range("A2", Cells(Rows.Count, "A").End(xlUp))

For Each Cell In Rng
If Cell.Text Like "*jim*" Then Cell.Delete (xlshiftUp)
ElseIf Cell.Text Like "*todd*" Then Cell.Delete (xlShiftUp)
Else
Next Cell
End If
Next Cell

End Sub


Any assistance will be appreciated. Thanks,

Nox

When deleting Rows you need to start from the bottom. Also, you are mixing cell references- Range & Cells

Please Login or Register  to view this content.