Sep 03 2020 12:32 PM
Sep 03 2020 03:11 PM
Sep 04 2020 03:41 AM
SolutionLike this:
Sub RenameSheets()
Dim OldName As String
Dim NewName As String
Dim wsh As Worksheet
Dim p As Long
NewName = InputBox("Enter the new name")
If NewName = "" Then
Beep
Exit Sub
End If
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
wsh.Name = NewName & Mid(OldName, p + 1)
Next wsh
End Sub
Sep 04 2020 05:03 AM
Sep 04 2020 08:12 AM
Sep 04 2020 11:14 AM
Sep 04 2020 03:41 AM
SolutionLike this:
Sub RenameSheets()
Dim OldName As String
Dim NewName As String
Dim wsh As Worksheet
Dim p As Long
NewName = InputBox("Enter the new name")
If NewName = "" Then
Beep
Exit Sub
End If
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
wsh.Name = NewName & Mid(OldName, p + 1)
Next wsh
End Sub