Word Count in Excel 2010

[popinz]

Hi Everyone,

I have an excel document with multiple tabs and I would like to have the number of words in the document. I am unable to find a word count function does anyone know if it is available?

thank you much and have a great day!

 

[jim may]

I use this code on a Single Sheet (The Activesheet).. Maybe you can adapt it to your situation...

Sub CountWords()
    Dim WordCount As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In ActiveSheet.UsedRange.Cells
        S = Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> "" Then
            N = Len(S) - Len(Replace(S, " ", "")) + 1
        End If

        WordCount = WordCount + N
    Next Rng
    MsgBox "There are " & WordCount & " words" & vbCrLf & "" _
    & "on this sheet"
End Sub