Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub CommandButton1_Click()
[green]
'Add new sheet as the last sheet in the workbook[/green]
Worksheets.Add after:=Worksheets(Worksheets.Count)[green]
'Name it from text box[/green]
Sheets(Sheets.Count).Name = TextBox1.Text
End Sub
With Sheets
.Add after:=Sheets(.Count)
Sheets(.Count).Name = TextBox1.Text
End With
And the shorter version:Andy said:Shorter version of the same: