Replacing blank cells with zeros

[Guest]

Hello, I have a an area of a spreadsheet 15 columns wide and 256 rows deep.
Some of the cells are populated with numbers but some are blank. I would like
to replace blank cells with zeros. What is the most efficient VBA method of
achieving that.
Thank you

 

[Nick Hodge]

You could use code like that below

Sub InsertZeroInBlank()
Dim myRng As Range
Set myRng = Range("A1:O256")
myRng.SpecialCells(xlCellTypeBlanks).Value = 0
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)