The code below will name each Worksheet in the Workbook based on the content of cell B1 of each Worksheet each time the Workbook is opened. To use the code, right click on the Excel icon, top left next to File and select View Code. In here paste the code below.
If certain Worksheets should be exclude let me know their names (or their Index number) and I will modify the code. There is also no error check to ensure cell B1 does not house characters that cannot be used, let me know if you would like that added.Code:Private Sub Workbook_Open() Dim wSheet As Worksheet On Error Resume Next For Each wSheet In Me.Worksheets wSheet.Name = wSheet.Range("B1") Next wSheet On Error GoTo 0 End Sub