Dim rng as Range, cell as Range
set rng = Range(Range("C1"),Cells(rows.count,3).End(xlup))
for each cell in rng
if application.CountA(cell.Resize(1,18)) = 0 then
cells(cell.row,1).Resize(1,2).ClearContents
End if
Next

May do what you want.

--
Regards,
Tom Ogilvy




"Martyn" wrote in message
...
How would i go about deleting any data in rows A:* AND B:*
IF C*:U* are empty?
Many thanks