Good morning everyone.

I am using the following code :

Sub test2()


Do
If ActiveCell = "CRK" Or ActiveCell = "STC" Then
ActiveCell.Offset(1, 0).Select
Else: Selection.EntireRow.Delete

End If

Loop Until ActiveCell = "WPR"

End Sub

to check the contents of column "A" in a spreadsheet, (I've selected cell A2 in the required spreadsheet before running the code). It seems to be working, as it deletes the rows that contain CRK and STC, but also deletes the rows that have WPR as well. The data is copied from another excel spreadsheet that is exported data from Oracle and I am using Office 97.

It's probably something really obvious to some, but I've been searching the forums all morning trying to adjust the code, but nothing seems to be working for me.

Any help anyone can offer would be greatly appreciated.

Thanks in advance, and have a great day all!