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.

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 Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=558428