Class Module Confusion

[JIMbythebay]

Hello everybody,

I am experimenting with class modules, and getting stuck. I want one of the read/write properties to be a range. I tried doing so as follows, in the class module:
<pre>-----
Private xDataRange As Range
-----
Public Property Get DataRange() As Range

DataRange = xDataRange

End Property
-----
Public Property Let CDRange(ByVal UserRange As Range)

xDataRange = UserRange

End Property
-----
Private Sub Class_Initialize()

xDataRange = Range("A1:B2")

End Sub
-----
</pre>

In a normal module, the following code gives a "Object variable or With block variable not set" error (error 91):
<pre>-----
Dim TestInstance As New TestObject
MsgBox TestInstance.DataRange.Address
-----
</pre>

Any advice? Thanks!

[charlotte]

Well, I normally work in Access, but no matter which application you work in, setting an object variable requires the Set keyword. You've declared xDataRange as a Range object, but you aren't using the Set keyword to instantiate that object. Try adding it and see if that fixes the problem. For example:

<pre>Private Sub Class_Initialize()
Set xDataRange = Range("A1:B2")
End Sub</pre>


Actually, I would expect it to require at least a sheet reference as well, depending on where you created the class module, but as I said, Access is my weapon of choice, so I'm not up on the ins and outs of Excel class modules.

[JIMbythebay]

Hi,

Yes, that was the problem. Silly me, so busy learning new things I am forgetting about old things.

Thanks!