You may want to use
ElseIf Len(Trim(mycell)) = 0 Then
to avoid counting a single quote followed by spaces
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

wrote in message
oups.com...
Does anyone know of a VBA code that I can use that will count the
number of cells in a selected column that contain text only, no blanks
or formulas? Thank you.