I have changed the code name for many of the sheets in my workbook, but want
to get a listing of them. How are the code names and the sheet names coded
so that I can display them?

Thanks

One way

Sub ListCodeNames()
Dim sh As Object
Dim oVBMod As Object
With ActiveWorkbook.VBProject
For Each oVBMod In .VBComponents
Select Case oVBMod.Type
Case 100:
Debug.Print "Name is " &
CStr(.VBComponents(oVBMod.Properties("Codename")). _
Properties("Name")) & ", CodeName is " &
CStr(.VBComponents(oVBMod.Properties("Codename")). _
Properties("CodeName"))
End Select
Next oVBMod
End With
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Barb Reinhardt" wrote in message
...
I have changed the code name for many of the sheets in my workbook, but
want
to get a listing of them. How are the code names and the sheet names
coded
so that I can display them?

Thanks

Sub abc()
Dim sh as Worksheet
For Each sh In ThisWorkbook.Worksheets
s = "Tab Name " & sh.Name & vbNewLine _
& "Codename: " & sh.CodeName
MsgBox s
Next

End Sub

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote:

I have changed the code name for many of the sheets in my workbook, but want
to get a listing of them. How are the code names and the sheet names coded
so that I can display them?

Thanks