Try this for column A

With Columns("A:A")
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 16).ClearContents
On Error GoTo 0
End With


--
Regards Ron de Bruin
http://www.rondebruin.nl


"MSHO" wrote in message ...
I have a macro that compares two sets of data. Sometimes there isn't data and
so there is a #DIV/0! symbol. How do i go through the cells and delete all of
these?

Thanks in advance