If cell in range is blank; enter 99999

Ok so it turned out I wasn't on my last question, but hopefully this is.

In the attached sheet, there is a range with lots of entered data (a small section of the total) where I would like to enter into all of the blank cells the value 99999.

I have been selecting the range as follows:

    Sheets("temp").Range("A3").Select
    Sheets("temp").Range(Selection, Selection.End(xlDown)).Select
    Sheets("temp").Range(Selection, Selection.End(xlToRight)).Select

Which is probably not the best, but it works, but need to fill in those gaps?

Many thanks,

Tim

Tim, dare I ask why you want to do this ?
(this seems to go back a few questions...)

You can achieve this using:

Public Sub FillBlanks()
Sheets("temp").Range(Cells(3, "B"), Cells.Find("*", SearchDirection:=xlPrevious)).SpecialCells(xlCellTypeBlanks).Value = 99999
End Sub

Does the real life matrix contain Blanks or Nulls ? The latter is likely if the table is populated via Formulae...

If you find what you believe to be a blank cell test with:

=COUNTBLANK(xy) where xy is cell reference of expected blank

If answer is 0 then it's a Null ("") .. if 1 it's a blank and I would not expect the code to bug.

You can handle Nulls easily enough if the values are result of formulae using an approach such as:

Public Sub FillBlanks()
Sheets("temp").Range(Cells(3, "B"), Cells.Find("*", SearchDirection:=xlPrevious)).SpecialCells(xlCellTypeFormulas,xlTextValues).Value = 99999
End Sub

A Null is a Text value (non-numeric) so can be identified relatively easily if the other results are all numeric.