Code
-------------------
Sub MacroAddNewFileListSheetNames()

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
-------------------


The above code only seems to work for TWO sheet names.
Once TWO names has been entered, the second name is overwritten.

Any ideas please

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