AA2e72E Wrote:
Sub xx()
Range("A1").Select
For Each Sheet In ActiveWorkbook.Sheets
Select Case Sheet.Name
Case "EG1"
'Ignore
Else
ActiveCell.Value = Sheet.Name
Cells(Cells.Row + 1, Cells.Column).Activate
End Select
Next
End Sub

Else Without If


Code
-------------------

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

Range("I1").Select
For Each Sheet In ActiveWorkbook.Worksheets
Select Case Sheet.Name
Case "Master Numbers"
'Ignore
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