- Code: Select all
Sub Button1_Click()
Dim inputdata
' Get the data
inputdata = Application.InputBox("Enter your sales ID:", "Input Box Text", Type:=0)
'
'
inputdata = Left(inputdata, Len(inputdata) - 1)
inputdata = Right(inputdata, Len(inputdata) - 2)
'MsgBox (inputdata)
If Len(inputdata) > 31 Then
MsgBox ("Text more than 31 characters")
Else: Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = inputdata
End If
End Sub