Sorry, replied before thinking...

Sub MacroAddNewFileListSheetNames()
' Creates a list of names of the sheets in SHEET Master Numbers, Colum
I (emitts Master Numbers)

Range("I1").Select
For Each Sheet In ActiveWorkbook.Worksheets
Select Case Sheet.Name
Case "Master Numbers"
'Ignore
*CASE* Else
ActiveCell.Value = Sheet.Name
Cells(Cells.Row + 1, Cells.Column).Activate
End Select
Next

End Su

--
aking198
-----------------------------------------------------------------------
aking1987's Profile: http://www.excelforum.com/member.php...fo&userid=1539
View this thread: http://www.excelforum.com/showthread.php?threadid=31434