How to I get a total word count in Excel?

J

JK

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,
 
D

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


--
 
Top