Rename Sheet Code for specific sheets

Question

Hi I would like to run the code from this solution https://learn.microsoft.com/en-us/office/troubleshoot/excel/use-macro-rename-sheet on all sheets after sheet 1 (sheet 2 through the end of the workbook). What changes to the code can I make to accomplish this?

Thanks!

Answer 1

Sub RenameSheets()

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets

If sh.Index > 1 Then

sh.Name = sh.Cells(9, 6)

End If

Next sh

End Sub

Answer 2

Could you share us where do you put the new name of sheets?

=================

Sub RenameSheets()

Dim sh As Worksheet

A = 1

For Each sh In ActiveWorkbook.Worksheets

If sh.Index > 1 Then

sh.Name = "New Name" & A

A = A + 1

End If

Next sh

End Sub

=================

cell F9 of each sheet

Answer 3

Could you share us where do you put the new name of sheets?

=================

Sub RenameSheets()

Dim sh As Worksheet 

A = 1 

For Each sh In ActiveWorkbook.Worksheets 

    If sh.Index > 1 Then 

        sh.Name = "New Name" & A 

        A = A + 1 

    End If

Next sh 

End Sub

=================