On 24 Apr, 11:12, Halim wrote:
Hi Mark,

Just guessing your achievement is identify cell which containing:
"CR INFO: Executing, 0,MADD - SARM exception statistics,Terminated from
far-end"

so you can use it:

Sub A_1_Macrox()
Dim Strx, cell As Range, x As Integer
Strx = Split("CR INFO: Executing, 0,MADD - SARM exception
statistics,Terminated from far-end", ",")

For x = 0 To UBound(Strx)
For Each cell In Range("A1:A500")
If InStr(1, cell, Strx(x)) Then cell.EntireRow.Delete
Next cell
Next x

End Sub
--

Regards,

Halim



"MarkHear1" wrote:
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- Hide quoted text -

- Show quoted text -

Halim,

Thank you for your suggestion, but can anybody offer an suggestions as
to why my code is not working?

Thanks,

Mark