Question : VBA: Rename all sheets
Answered by : vandri-wang
Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count Application.Sheets(i).Name = newName & i
Next
End Sub
Source : https://www.extendoffice.com/documents/excel/609-excel-rename-worksheets.html | Last Update : Thu, 26 May 22