? Get Worksheet Codename List

[gabch]

Hi,

How can I get back the Worksheet CodeName List?


Best regards

[Tom Ogilvy]

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
>
>