Rename Sheet

%3CLINGO-SUB%20id%3D%22lingo-sub-2960314%22%20slang%3D%22en-US%22%3ERename%20Sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2960314%22%20slang%3D%22en-US%22%3E%3CP%3EHello%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ECan%20we%20rename%20multiple%20sheets%20in%20the%20single%20click%3F%20If%20Supose%20I%20have%20list%20in%20A1%20in%20Sheet%201%20and%20the%20list%20each%20name%20should%20be%20named%20as%20the%20each%20sheet.%20Is%20that%20possible%3F%20Please%20advise.%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2960314%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2960377%22%20slang%3D%22en-US%22%3ERe%3A%20Rename%20Sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2960377%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1215484%22%20target%3D%22_blank%22%3E%40Shanmukhvarun%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EWhat%20exactly%20do%20you%20mean%20by%20%22I%20have%20list%20in%20A1%20in%20Sheet%201%22%3F%3C%2FP%3E%0A%3CP%3EDo%20you%20have%20multiple%20names%20in%20cell%20A1%3F%20Or%20did%20you%20mean%20a%20list%20in%20A1%2C%20A2%2C%20A3%20etc.%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

Hello

 

Can we rename multiple sheets in the single click? If Supose I have list in A1 in Sheet 1 and the list each name should be named as the each sheet. Is that possible? Please advise. 

4 Replies

@Shanmukhvarun 

What exactly do you mean by "I have list in A1 in Sheet 1"?

Do you have multiple names in cell A1? Or did you mean a list in A1, A2, A3 etc.?

@Hans Vogelaar I have Multiple names in like mentioned in the screenshot and the sheets have already data in that so when I use any code the existing sheet names should change to the names that I provided

 

Shanmukhvarun_0-1636756890015.png

 

 

@Shanmukhvarun 

Your list starts in A2, not in A1...

Here is a macro you can run. Please test on a copy of your workbook.

 

Sub RenameSheets()
    Dim i As Long
    On Error Resume Next
    i = 2
    Do
        Sheets(i - 1).Name = Sheets(1).Range("A" & i).Value
        i = i + 1
    Loop Until Sheets(1).Range("A" & i).Value = ""
End Sub

 

Thank you So much it really helped