Inventory a WorkBook

[CLR]

Hi All......

If someone would be so kind, please tell me how I might obtain a count of
all the sheets in a Workbook, and then create a new sheet called
SheetInventory and place a list of all the SheetNames thereon.......

TIA
Vaya con Dios,
Chuck, CABGx3

 

[Tom Ogilvy]

Dim sh as Object
Dim i as Long
worksheets.Add After:=sheets(sheets.count)
Activesheet.Name = "SheetInventory"
i = 0
for each sh in sheets
i = i + 1
cells(i,1).Value = sh.Name
Next
magbox "Total Sheet Count is: " & sheets.count

 

[CLR]

It works "finer than frog hair", Tom.........

Many Thank-you's

Vaya con Dios,
Chuck, CABGx3