Hi,

And here is another approach

Sub GetNames()
Dim sh As Worksheet
Dim I As Integer
For Each sh In Worksheets
If sh.Index 1 Then
Sheets(1).[A1].Offset(I) = sh.Name
I = I + 1
End If
Next sh
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"John" wrote:

Hello to all...
I have found this community to be very helpful for a new user like me. I
have used many examples displayed throughout the sessions. What I would like
to do is list the sheets in my workbook on sheet 1 but exclude sheet 1 in the
list, starting with sheet 2 through sheet end.
I have found the code that list all sheets which will work but I would like
to eliminate the first sheet though.

Any example of code would be nice. Thanks in advance...