How can I insert the tab name into a cell in a different shee...

P

prumble

I want to create a totals worksheet and insert the tab names in column A so I
can then display the totals for each worksheet.

I'm running XP 2002.
 
J

jetted

I would try this

Sub List_Worksheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets.Add
ActiveSheet.Name = "Total_Worksheet"
Set ArrFeuil = Sheets("Total_Worksheet")
ArrFeuil.Cells(1, 1).Value = "Total Worksheets Value"
For i = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(i, 1).Value = Sheets(i).Name
Next i
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Su
 
Top