Sep 04 2020 09:50 PM
Sep 05 2020 03:14 AM
You might use a macro to insert a new sheet:
Sub NewSheet()
Dim wsh As Worksheet
Dim OldName As String
Dim p As Long
Dim n As Long
Dim m As Long
For Each wsh In Worksheets
OldName = wsh.Name
For p = Len(OldName) To 1 Step -1
If Not IsNumeric(Mid(OldName, p, 1)) Then
Exit For
End If
Next p
n = Val(Mid(OldName, p + 1))
If n > m Then m = n
Next wsh
Worksheets.Add.Name = "Sheet" & m + 1
End Sub
You can assign the macro to a custom keyboard shortcut and/or to a Quick Access Toolbar button.