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