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


--





--
Don Guillett
SalesAid Software

"JK" wrote in message
...
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,