Sub zeroo()
For Each cel In Selection
If cel.Value = "" Then
cel.Value = 0
End If
Next
End Sub

--
Gary''s Student - gsnu200909


"LiAD" wrote:

Hi

Could someone give me a code please to replace a blank cell with a zero (0)
please? inisde the cell there is a formula which returns the blank

Thanks
LiAD