Add Worksheet via VBA

[kawstov]

The following code on a button would do the trick:

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