VBA to rename sheets

[jtsuperman34]

Hello, I have the code below, that will change my sheet name to reflect "C1". But I would like to have this code start from sheet two instead of sheet one. Also I would like it to rename every sheet in my workbook after sheet one according to the information in "C1". Appreciate the help.

Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
rs.Name = rs.Range("C1")
Next rs

End Sub

 

[Logit]

The issue with your goal involves naming every sheet in the workbook the same name.
Excel will not let you do that.

 

[p45cal]

But I would like to have this code start from sheet two instead of sheet one.

Instead of

rs.Name = rs.Range("C1")

:
try:

if rs.name <> "theNameOfTheSheetYouDontWantToChange" Then rs.Name = rs.Range("C1")

I would like it to rename every sheet in my workbook after sheet one according to the information in "C1"

What's in C1 of the first sheet? Is it a list or something? As Logit says, you can't name all sheets the same.

 

[jtsuperman34]

I have my workbook set with auto page breaks. So “C1” is different on every page except the master sheet which is sheet one. In my case sheet is a route number and I want the name of the sheets to reflect which route I am working on.

 

[p45cal]

rename every sheet in my workbook after sheet one according to the information in "C1"

So you no longer want this?

edit post posting: I get it, it's not that you want the sheets named in C1 of the sheet one, but you only want to name sheets according to what's in their C1, except for sheet one. In which case my answer in msg#3 applies still, or one of the answers in your cross-post(s).