Naming a sheet/tab by refering to a cell

[davey11372]

I have a workbook with a hundred sheets.

I want each sheet in the workbook to be named by reference to the value of cell A1 in each sheet.

How can I do this.

What script/code do I need and where do I paste it?

Thanks

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu and paste into the white space on the right

Sub NameSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    With ws
        .Name = .Range("A1").Value
    End With
Next ws
End Sub

.

Press ALT + Q to close the code window, Tools > Macro > Macros, click on NameSheets and click the Run button.

 

[davey11372]

Thanks much. It worked like a charm.

VoG, I have another post title "Sorting an Array Formul" .. would you have a solution to that?

Thanks again.