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 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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks