Nick, think you meant to include the second argument as well:
Sub CountConstants()
Dim lConstantCount As Long
On Error Resume Next
lConstantCount = Selection.SpecialCells( _
xlCellTypeConstants,xlTextValues).Count
On Error goto 0
MsgBox "There are " & lConstantCount _
& " Cells with constants in the
selection"
End Sub
Just in case there are constant numbers in the selection as well.
--
Regards,
Tom Ogilvy
Nick Hodge wrote in message
...
Soniya
the code below will count the cells with constants. (Not formulas, blank,
etc) in a selection
Sub CountConstants()
Dim lConstantCount As Long
lConstantCount = Selection.SpecialCells(xlCellTypeConstants).Count
MsgBox "There are " & lConstantCount & " Cells with constants in the
selection"
End Sub
--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS
"Soniya" wrote in message
...
Hi all,
How can I count cells containing Text only?
TIA
Soniya