Dynamically declaring variables with composite name
 

I would like to set up a loop which creates variables of type integer
with a composite name created from a list of values held in an array
(of type string) and a fixed piece of text. To illustrate, this is
the sort of code I'm coming up with, which of course doesn't work.....

For n = 0 To UBound(aryFundList, 2)
ActiveSheet.Cells(1, 1).Value = aryFundList(0, n) & "stop"
Dim ActiveSheet.Cells(1, 1).Value As Integer
Next

Can anyone offer some advice?

Thanks,
Al

Dynamically declaring variables with composite name
 

Al, it's not possible to explicitly declare variables like
this.

i think the best you can do is to set up a collection,
where the objects within have keys = the value within your
cell.

eg

dim clsMyObject as YourClass
dim colTemp as new collection

For n = 0 To UBound(aryFundList, 2)
ActiveSheet.Cells(1, 1).Value = aryFundList(0, n)
& "stop"
set clsMyObject=new YourClass
colTemp.add clsMyObject,aryFundList(0, n) & "stop"

Next

Regards

Rog

-----Original Message-----
I would like to set up a loop which creates variables of
type integer
with a composite name created from a list of values held
in an array
(of type string) and a fixed piece of text. To
illustrate, this is
the sort of code I'm coming up with, which of course
doesn't work.....

For n = 0 To UBound(aryFundList, 2)
ActiveSheet.Cells(1, 1).Value = aryFundList(0, n)
& "stop"
Dim ActiveSheet.Cells(1, 1).Value As Integer
Next

Can anyone offer some advice?

Thanks,
Al
.

Dynamically declaring variables with composite name
 

Rog,

Thanks for this. Can you tell me which reference(s) I need to have
selected from the VBE Tools - References menu for YourClass to be
available?

Thanks again,
Al


"Rog" wrote in message ...
Al, it's not possible to explicitly declare variables like
this.

i think the best you can do is to set up a collection,
where the objects within have keys = the value within your
cell.

eg

dim clsMyObject as YourClass
dim colTemp as new collection

For n = 0 To UBound(aryFundList, 2)
ActiveSheet.Cells(1, 1).Value = aryFundList(0, n)
& "stop"
set clsMyObject=new YourClass
colTemp.add clsMyObject,aryFundList(0, n) & "stop"

Next

Regards

Rog

-----Original Message-----
I would like to set up a loop which creates variables of
type integer
with a composite name created from a list of values held
in an array
(of type string) and a fixed piece of text. To
illustrate, this is
the sort of code I'm coming up with, which of course
doesn't work.....

For n = 0 To UBound(aryFundList, 2)
ActiveSheet.Cells(1, 1).Value = aryFundList(0, n)
& "stop"
Dim ActiveSheet.Cells(1, 1).Value As Integer
Next

Can anyone offer some advice?

Thanks,
Al
.