sub toc()
for i=1 to sheets.count
cells(i,1).value=sheets(i).name
next i
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MA" wrote in message
...
hi,

I want to copy the names of all existing sheet names of a file as a list
in
any of the sheets of the file.

Your expert advice is highly appreciated.