k, with a little more playing ...
Create a Module, as per above.
Put this code in.
Quote:
Function SheetName() As Variant
For i = 1 To Worksheets.Count
Worksheets(i).Range("A1:A1").Clear
Worksheets(i).Cells(1, 1).Value = Worksheets.Item(i).Name
Next
End Function
Sub NameSheets()
Call SheetName
End Sub
|
Double click on "ThisWorksheet" and add this code.
Quote:
Private Sub Workbook_Open()
Call SheetName
End Sub
|
This will automatically run the function when the Workbook opens and place the name of the sheet in Cell A1 on each sheet.
In addition there is a Macro which can be used when things have been changed, added or removed.