Range.Words (Word)

Returns a Words collection that represents all the words in a range.

Punctuation and paragraph marks in a document are included in the Words collection. For information about returning a single member of a collection, see Returning an object from a collection.

MsgBox "There are " & Selection.Words.Count & " words."