Are the cells truely empty or is it formulas that are retuning blank. If it
is truely blank then...

On Error Resume Next
Range("A1:Z1").SpecialCells(xlCellTypeBlanks).Valu e = 0
On Error GoTo 0
--
HTH...

Jim Thomlinson


"scrabtree23" wrote:

I need a code that will search a range (let's say A1:Z1) and will replace any
blank cells with a zero (0).