With Range("A1:Z1").SpecialCells(xlCellTypeBlanks)
.Value = 0
End With

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