# Count Empty Cells VBA

May 15, 2007I am trying to count empty cells in the range from the macro.

Idea is to count empty cells in one row, but cells to be counted are discontinued (range A10:A15, A25:A30. ETC....). Other difficulty is that I can not define the range exactly like this, but I have to use ActiveCell.Offset (0,10) or ActiveCell.Offset(0,11) etc...

ActiveCell is A1.

I tried something like this, but it does not work since I can not define the range correctly.

Dim c

Dim numBlanks

numBlanks = 0

For Each c In Range("ActiveCell.Offset (0,10):ActiveCell.Offset(0,15)")

If c.Value = "" Then

numBlanks = numBlanks + 1

End If

Next c