Sub ABC()
Dim v As Object
For Each v In ThisWorkbook.VBProject.VBComponents
If v.Type = vbext_ct_Document Then
If v.Name < "ThisWorkbook" Then
s = s & v.Name & " - " & _
v.Properties("Name") & vbCr
End If
End If
Next
MsgBox s
End Sub

--
Regards,
Tom Ogilvy


"gabch" wrote:


Hi,

How can I get back the Worksheet CodeName List?


Best regards


--
gabch
------------------------------------------------------------------------
gabch's Profile: http://www.excelforum.com/member.php...o&userid=30662
View this thread: http://www.excelforum.com/showthread...hreadid=531847