Try:

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

You need to:

1. Change the location where the names should appear: I've used A1
2. Use ActiveWorkbook.Sheets if you want to include chart sheets otherwise
use ActiveWorkBook.Worksheets.


"aking1987" wrote:


Title says it all!

Would like a sub to aquire the list of worksheet names (exluding sheet
name "EG1)

Then paste the names within a specified column (IE: I)

Thank you.


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