Rename Worksheet Tabs per Cell Content

[Guest]

Hello,

I'd like to be able to rename my worksheet tabs based on the contents of a
cell within that worksheet (same cell in each worksheet).

Any suggestions? TIA

 

[Guest]

Try something like this

dim aWS as worksheet
on error resume next
for each aWS in activeworkbook.worksheets
aws.name = aws.cells(1,1).value
next aws
on error goto 0

HTH,
Barb Reinhardt

 

[Gord Dibben]

From Ron de Bruin comes this code.

Sub Sheetname_cell()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
On Error Resume Next
sh.Name = sh.Range("A1").Value
'next lines cover duplicate names
If Err.Number > 0 Then
MsgBox "Change the name of : " & sh.Name & " manually"
Err.Clear
End If
On Error GoTo 0
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP