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
------------------------------------------------------------------------------------------

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?

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

--

HTH

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


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
> --------------------------------------------------------------------------
----------------
>

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.

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

http://tinyurl.com/begok

--
Regards,
Tom Ogilvy


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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.
>