Return the Object that belongs to a CodePage

[BruceMutton]

The opposite of this is easy to do, using

Object.CodePage

however

CodePage.Parent

only steps up the VBA object hierachy towards the VBE.

The only way I can think of is by brute force...

For Each <worksheet & object> In ThisWorkbook
  If <worksheet & object>.CodePage Is <codepage I'm looking for> Then
    Msgbox "This is the Object that belongs to the CodePage!"
  End If
Next <>

Any better ideas?

 

[Dave Hawley]

Hi Bruce

What is a "CodePage" ? Is this a variable you have assigned?


>Object.CodePage

What is the Object?

 

[Ivan F Moala]

Hi Bruce ....do you mean CodeName ??

eg MsgBox Worksheets(1).CodeName


Ivan

 

[BruceMutton]

Dave, Ivan

Object has the usual VBA meaning. In this case it could be a workbook, sheet or activeX control,

CodePage is is the VBA script associated with the object. All event triggered code is put here by default. eg Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)

and no, CodeName is the "code name" associated with an object, that can be refered to directly in VBA code, without using collection syntax
eg
Msgbox Worksheets("Data") 'using collection syntax
Msgbox Sheet1 'using CodeName

The helpfiles in Excel 2000 are a bit sketchy with regards to VBE objects, Excel97 even more so.