Worksheet.GetCodeName/Get_CodeName

[Gap]

Hello

Both these methoeds return empty strings to my C++ Add-in code.
Whereas VBA returns the expected codes sheet1, sheet2 etc..

Any idea how to get these Worksheet codes with automation?

Regds
Gap.

 

[Bernie Deitrick]

Gap,

Try something along these lines, with a reference set to MS VBA
Extensibility:

Sub ShowCodeName()
MsgBox ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name) _
.Properties("_CodeName").Value
End Sub

HTH,
Bernie
MS Excel MVP

 

[Bob Phillips]

Gap,

Try something along these lines, with a reference set to MS VBA
Extensibility:

Works quite nicely without the reference Bernie.