Hi altric,

try this macro on a copy of your data...

Public Sub Blank_to_zero()
Dim rngCell As Range
Dim rngRange As Range
On Error GoTo CANCELLED
Set rngRange = Application.InputBox( _
Title:="Blanks to Zeros", _
Prompt:="Select cells for changing blanks to zeros.", _
Default:=Selection.Address, _
Type:=8)
For Each rngCell In rngRange
With rngCell
If .Value = "" Then Let .Value = 0
End With
Next rngCell
CANCELLED:
End Sub

Ken Johnson

Hi

For a non-macro solution.
Enter 0 in a spare cell on your sheet, mark the cell >Copy
Mark the complete range of values in B2:C4>Paste Special>Add

Another non-macro solution:

Select the range to fix (include the filled in cells)
edit|goto|special
check Blanks
type 0
but hit ctrl-enter (instead of enter) to fill all the empty cells with 0's.

It could look like this in code:

   Dim myRng As Range
   Set myRng = Selection  

   On Error Resume Next
   myRng.Cells.SpecialCells(xlCellTypeBlanks).Value = 0
   On Error GoTo 0

Another solution: Choose Edit -> Replace with nothing in the Find box
and Replace box set to 0