Assuming that would be the only error in the cells selected:

On Error Resume Next
Selection.SpecialCells(xlFormulas,xlErrors) = 0
On Error goto 0

--
Regards,
Tom Ogilvy


"jln via OfficeKB.com" wrote:

How can i in code find alll cells that have #Ref! and replace it with 0?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200707/1