sheet tab names

Posted by steve clark on February 02, 2001 4:53 AM

can the sheet tab names be set up to reference a cell so they are automatically updated?

Posted by Faster on February 02, 2001 8:43 AM

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
'Put code in ThisWorkbook, not is module.
'It will work the next time you open the workbook.
'Change Range("A1") to cell with name in it.
If Range("A1") = "" Then
Exit Sub
Else
ActiveSheet.Name = Range("A1")
End If
End Sub