Each cell in selected cells test

[Steven]

If I select cells A1:K100, how do I count how many are blank.

Thank you,

Steven

 

[Don Guillett]

Sub countblankcells()
'MsgBox Selection.SpecialCells(xlCellTypeBlanks).Count
For Each c In range("a1:k10") 'Selection
If Len(Application.Trim(c)) < 1 Then mc = mc + 1
Next c
MsgBox mc
End Sub

 

[Doug Glancy]

Don,

I would have thought the line you commented out would do it ('MsgBox
Selection.SpecialCells(xlCellTypeBlanks).Count). Doesn't that work? I
guess it's so you'd count cells with spaces in them as blanks, but I wonder
if that's what Steven wants.

Thanks,

Doug

 

[Don Guillett]

My testing showed that it didn't. Forgot to delete.

 

[Doug Glancy]

I tried it a little and it seemed to work fine.

Doug