I posted an example file to
http://www.Galimi.com/Examples/shtChange.xls
Following is the Workbook_Activate code
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name < shtPlace.Name Then Exit Sub
For Each sht In ThisWorkbook.Sheets
shtPlace.Range("nmSht").Offset(intr) = sht.Name
intr = intr + 1
Next
End Sub
http://HelpExcel.com
"shoshaw" wrote:
I've got a workbook with 12 tabs. Within one of the tabs, I'd like to
create a table of the 12 tab names. When I change a tab name, I want the
table to be updated automatically.