Hi BigDave,

This should work

Sub LimitMyComment()

Dim csComment As String * 40

csComment = Application.InputBox("Please enter your comment." & Chr(10)
& _
Chr(10) & "Comments are not required for No responses", Type:=2)
ActiveSheet.Range("i200") = csComment

End Sub

"BigDave" wrote:


Here is the code I have:


Dim csComment As String
csComment = InputBox("Please enter your comment." & Chr(10) &
Chr(10) & "Comments are not required for No responses")
ActiveSheet.Range("l200") = csComment


I need to limit the text length to 40 characters or less. This
information will eventually be copied into a another workbook that
serves as a data sheet for a PivotTable.

BTW - I really appreciate all of the help I've recieved here. vb used
to really scare me and I stayed way clear of it. Not anymore. I've
got much to learn yet, but you guys have really helped me out a lot.
Thanks in advance!!!


--
BigDave
------------------------------------------------------------------------
BigDave's Profile: http://www.excelforum.com/member.php...fo&userid=7741
View this thread: http://www.excelforum.com/showthread...hreadid=377905