Create my own Class Object for Ranges, having trouble assigning name property
 

I created a Class called Market_Report.

I then created several instances of Market_Report in a collection
called grMarket_Report_Ranges

Now I am calling the object and was able to set a range to the object
but cannot assign the name property.

grMarket_Report_Ranges is defined as global collection. g is for
global, r is for range.

So the following works:

---code---
Set grMarket_Report_Ranges.Program(iRP_Array_Dimension ) =
Worksheets("Calc-Codes").Range("AB7:AB" & Trim(Str(iRow_Unique)))
---code---

The following does not with or w/o a Set statement.:

---code---
grMarket_Report_Ranges.Program(iRP_Array_Dimension ).Name = "Market
Report Programs"
---code---

I get a RTE 91, Object variable or with block variable not set

Here is what my class looks like:

'CLASS START -------------------------

Option Explicit

Private mrProgram() As Range

Public Function Initialize(iDimensions As Integer)

ReDim Preserve mrProgram(iDimensions)

End Function

Public Property Get Program(ByVal i As Integer) As Range
Program = mrProgram(i)
End Property

Public Property Set Program(ByVal i As Integer, ByVal r As Range)
Set mrProgram(i) = r
End Property

'CLASS END
------------------------------------------------------------------------------------------

Create my own Class Object for Ranges, having trouble assigning name property
 

I figured it out but now I'm unclear as to why I created my own class
for this. I wanted all the info to be organized.

The statement I needed to generate was:

Worksheets("Calc-Codes").Range("AB7:AB" & Trim(Str(iRow_Unique))).Name
= "Market Report Programs"

Can anyone explain to me how I can keep my info organized in a
colletion of objects?

Create my own Class Object for Ranges, having trouble assigning name property
 

The name property of what? What exactly are you trying to set here?

--

HTH

RP
(remove nothere from the email address if mailing direct)


wrote in message
oups.com...
I created a Class called Market_Report.

I then created several instances of Market_Report in a collection
called grMarket_Report_Ranges

Now I am calling the object and was able to set a range to the object
but cannot assign the name property.

grMarket_Report_Ranges is defined as global collection. g is for
global, r is for range.

So the following works:

---code---
Set grMarket_Report_Ranges.Program(iRP_Array_Dimension ) =
Worksheets("Calc-Codes").Range("AB7:AB" & Trim(Str(iRow_Unique)))
---code---

The following does not with or w/o a Set statement.:

---code---
grMarket_Report_Ranges.Program(iRP_Array_Dimension ).Name = "Market
Report Programs"
---code---

I get a RTE 91, Object variable or with block variable not set

Here is what my class looks like:

'CLASS START -------------------------

Option Explicit

Private mrProgram() As Range

Public Function Initialize(iDimensions As Integer)

ReDim Preserve mrProgram(iDimensions)

End Function

Public Property Get Program(ByVal i As Integer) As Range
Program = mrProgram(i)
End Property

Public Property Set Program(ByVal i As Integer, ByVal r As Range)
Set mrProgram(i) = r
End Property

'CLASS END
--------------------------------------------------------------------------
----------------

Create my own Class Object for Ranges, having trouble assigning name property
 

NAME PROPERTY OF BUILT IN RANGE CLASS.

I created a custom class of objects that would juggle a huge amount of
ranges. If you look at the custom class I created it defines a property
of type Range.

Create my own Class Object for Ranges, having trouble assigning name property
 

Seems like it would be easier to just use a collection. However:

http://tinyurl.com/begok

--
Regards,
Tom Ogilvy


wrote in message
oups.com...
NAME PROPERTY OF BUILT IN RANGE CLASS.

I created a custom class of objects that would juggle a huge amount of
ranges. If you look at the custom class I created it defines a property
of type Range.