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:

    Rows(1).Insert
    For i = 1 To Sheets.Count
    If IsNumeric(Sheets(i).Name) Then
        Cells(i, 1) = Sheets(i).Name
    End If
    Next i

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!