Create list of numeric worksheet names

Hi everyone,

I'm trying to get a macro which will create a list of all worksheet names that are only numeric and paste the list into cell C6

I have the following macro which only partially does what I need:

Please Login or Register  to view this content.

It creates a list of numeric worksheet names, but it pastes the list in column A and down rather than across, and it leaves blanks for those worksheets that are not numeric.

Any ideas?

Thanks!

Cells(1,i) = Sheets(i).Name

Better

Please Login or Register  to view this content.

Perfect. Thank you.