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