Problem with class inheritance

[is49460]

Hello,

Please help with a following problem:

Class Module Myclass:

Private xl as excel.application
Private wb As Excel.Workbook
 
Private Sub Class_Initialize()
   Set xl = New Excel.Application
   Set wb = xl.Workbooks.Add
End Sub
 
Public Property Get CurrentWB() As Excel.Workbook
   CurrentWB = wb
End Property

Module Sub:

Dim test as myclass
 
Set test = new myclass
 
Msgbox Test.currentWB.name
 
Set test = nothing

Msgbox line fails….
What am I doing wrong? In general, I’m trying to inherit workbook properties and methods. Thanks for your help.

[Stewart Ross]

Hi. Took a bit of testing to find the very simple answer: in your property get you have forgotten that it is an object property you are setting, so you need to use set:

set CurrentWB = wb

-Stewart

[is49460]

Thanks a lot, adding "set" did the trick...

Hi. Took a bit of testing to find the very simple answer: in your property get you have forgotten that it is an object property you are setting, so you need to use set:

set CurrentWB = wb

-Stewart