How to I get a total word count in Excel?

[Guest]

Is there a command to obtain a total word count in Excel spreadsheets similar
to getting a word count in Word documents? This is required to submit
language translation requests.
Thanks,

 

[Don Guillett]

From Chip

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


--