It didn't work. I have header rows throughout the sheet should I delete them?

"tjh" wrote:

This is one way.
You almost had it. I made a couple of revisions.

Option Explicit
Sub LoopRange1()
Dim x As Long

x = 1
'y = x + 1
Do While Cells(x, 1).Value = "HQCCA1"

If Cells(x, 3).Value = "XS" Then
Cells(x, 1).EntireRow.Delete
Else
x = x + 1
End If
'y = x + 1

Loop
End Sub






"Vecchia" wrote:

I have an Excel sheet that has 3 columns. Column 1 is the same throughout -
HQCCA1. What I would like is to start at row 1 and look at Column 3 and if
the data in row 1 is XS, then delete the row. Otherwise, go on to the next
row and look to see if it is XS, etc through to the end of the sheet. Here
is what I wrote and nothing happens (I must admit I tried using a sample to
do this.):

Sub LoopRange1()
x = ActiveCell.Row
y = x + 1
Do while Cells(x,1).Value = HQCCA1
If Celss (x,3).Value = "XS" Then
Cells(x,1).EntireRow.Delete
Else
y = y + 1
End If
Loop
x = x + 1
y = x + 1
End Sub