Limit text length with inputBox

  • Thread starter Thread starter BigDave
  • Start date Start date
B

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
Click to expand...

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