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

--
Regards,
Tom Ogilvy


"CLR" wrote in message
...
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