I did miss an End If but the xlUp is okay. Did you cut and paste or type it
in?

cRows = Cells(Rows.Count, "A").End(xlUp).Row
For i = cRows To 1 Step -1
If Cells(i, "A").Value = Cells(i, "C").Value Then
Range("A" & i & ":F" & i).ClearContents
End If
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" wrote in message
...
cRows = Cells(Rows.Count,"A").End(xlUp).Row
For i = cRows To 1 Step -1
If Cells(i,"A").Value = Cells(i,"C").Value Then
Range("A" & i & ":F" & i).ClearContents
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"twist" wrote in message
...

I'm looking for a way to complete this task:


If A1 equals C1 then delete A1 through F1, repeat on to the next row
until row is empty.


If you can leave feedback, thankyou.


--
twist
------------------------------------------------------------------------
twist's Profile:
http://www.excelforum.com/member.php...o&userid=16055
View this thread:
http://www.excelforum.com/showthread...hreadid=275151