Function COUNTWORDSC(rRange As Range, Optional separator As Variant) As Long
Dim rCell As Range
Dim Count As Long
If IsMissing(separator) Then
separator = " "
End If
For Each rCell In rRange
lCount = lCount + Len(Trim(rCell)) - Len(Replace(Trim(rCell), separator, "")) + 1
Next rCell
COUNTWORDSC = lCount
End Function