Hi All,

I have written the code below and can see no reason for it not to
work, however when I run the code I get an error saying "Object
Required" I don't understand why I am seeing this error, however if i
change cell.entirerow.delete to cell.interior.color=vbBlue then the
code will run fine.
Can anybody offer any suggestions?

Sub A_1_Macro()
'UserForm1.Show

Application.ScreenUpdating = False

For x = 0 To 4

For Each cell In Range("A1:A35000")

If Mid(cell, 26, 2) = " 0" Then
cell.EntireRow.delete
End If

If Mid(cell, 1, 18) = "CR INFO: Executing" Then
cell.EntireRow.delete
End If

If cell.Value = "MADD - SARM exception statistics" Then
cell.EntireRow.delete
End If

If cell.Value = "Terminated from far-end" Then
cell.EntireRow.delete
End If

Next cell

Next x

Call A_2_DeleteRows

End Sub

Many Thanks,
Mark