List Sheet Names & Internal Names

[lapta301]

Dear All

Is it possible to produce a list on a new worksheet of all sheet names and their their internal names within a workbook?

If so I would like the tabbed name's to begin in say A2 with the corresponding internal name in B2.

As ever any help would be most appreciated

 

[Jonmo1]

The list will be in a NEW sheet..

Try

Sub SheetList()
Dim ws As Worksheet
Dim listsheet As Worksheet
Set listsheet = Sheets.Add
With listsheet
    .Name = "SheetList"
    .Range("A1").Value = "TabName"
    .Range("B1").Value = "InternalName"
    .Range("C1").Value = "Index#"
    For Each ws In Worksheets
        .Range("A2").Offset(rc, 0).Value = ws.Name
        .Range("B2").Offset(rc, 0).Value = ws.CodeName
        .Range("C2").Offset(rc, 0).Value = ws.Index
        rc = rc + 1
    Next ws
End With
End Sub

I also threw in the Sheet's Index # in column C (the 3rd method of referring to a sheet)

 

[lapta301]

jonmo1

As ever perfect!

Thank you

 

[lapta301]

jonmo1

Sorry to activate this again which is working fine but and I'm not sure if this right thing to ask but I wonder if it's possible to merge this with the final piece of code here

http://www.mrexcel.com/forum/showthread.php?24957-Index-Worksheets

which adds a hyperlink to the sheet name and a description in column B.

If possible I'd like the internal name and index no to go in columns C & D

Many thanks

Steve