dim rng as Range, cell as Range
if Application.CountA(columns(1)) < 0 then
set rng = Intersect(columns(1).SpecialCells(xlConstants).Ent ireRow, _
Columns(2))
for each cell in rng
if lcase(cell.Value) = "abc" then
cell.offset(0,1).ClearContents
end if
NExt
End if

--
Regards,
Tom Ogilvy


"MAYDAY " wrote in message
...
Thanks Tom,

I apologize for not being more clear. What I'm trying to do is this:

If there is a cell in column A that has a value of 'abc'(hard coded, no
formulas), I want the contents in the cell to the right to be deleted.


---
Message posted from http://www.ExcelForum.com/