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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Steven" wrote in message
...
If I select cells A1:K100, how do I count how many are blank.

Thank you,

Steven