DONT create new threads as you have been doing: it sends everyone else on a
wild goose chase and you can't track whether the problem has been answered.

See your original posy about 4 below this.

"aking1987" wrote:


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


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?


--
aking1987
------------------------------------------------------------------------
aking1987's Profile: http://www.excelforum.com/member.php...o&userid=15393
View this thread: http://www.excelforum.com/showthread...hreadid=314346