Hi Guys

I have found this macro to add null into blanks in my VBA but if there are no blanks the message box pops up to say so and clicking OK makes it go away but the remainder of my macro does not run. If i have a blank then it runs fine.

Here in the code:

Sub FillBlanksWithNull()

'This macro will fill all "blank" cells with the text "Null"

'When no range is selected, it starts at A1 until the last used row/column

'When a range is selected prior, only the blank cell in the range will be used.
'this includes error handleing which I can't manage so i have elimated error handleing

On Error GoTo ErrHandler:

Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "--"

Exit Sub

ErrHandler:

MsgBox "No blank cells found", vbDefaultButton1, Error

Resume Next

End Sub
Love to solve these small issues but i have labored for hours looking for the solution.

Mark