WorksheetFunction.CountBlank (Excel)
Counts empty cells in a specified range of cells.
Cells with formulas that return "" (empty text) are also counted. Cells with zero values are not counted.
CountBlank (Arg1)
Arg1: The range from which you want to count the blank cells.
Dim dblCountBlank As Double
dblCountBlank = WorksheetFunction.CountBlank(Arg1:=)