limit comments to only 600 words
OOPS!!!
Read your request incorrectly. I first read it as 600 letters.
Here's the correct answer for word count...
Private Sub TextBox1_Change()
Dim iWordCount As Integer
iWordCount = 600
If Len(TextBox1.Value) - Len(Application.WorksheetFunction. _
Substitute(TextBox1.Value, " ", "")) iWordCount - 1 Then
TextBox1.Value = _
Left(TextBox1.Value, Application.WorksheetFunction. _
Find("~", Application.WorksheetFunction. _
Substitute(TextBox1.Value, " ", "~", iWordCount - 1)))
End If
End Sub
--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown
"Tim" wrote:
I have created a text box but I want the text length to be equal to or less
than 600 words.
How do I do that in Excel 2003 please
|