Limit text length with inputBox

[BigDave]

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!!!

 

[Guest]

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]

Fan-bloody-tastic!!! Thanks