Renaming all sheets based on range of cell Macro

[nizankhan]

Hi guys,

I am trying to rename sheets in a workbook that has 18 sheets. Is there anyway i can use macro to rename all the sheets in the workbook based on range cell value from b5:b22 in master sheet, i don't want master sheet to be renamed though just all the other sheets?

Thanks

[YasserKhalil]

Try this code

Sub Test()
    Dim i As Long
    
    With Sheets(1)
        For i = 1 To Worksheets.Count
            Sheets(i).Name = CStr(Sheets(1).Cells(i + 4, 2).Value)
        Next i
    End With
End Sub

[nizankhan]

It works! Thank you very much.

[YasserKhalil]

You're welcome. Glad I can offer some help for you