Hi All

IN VBA,How to define variable a("H") = "Follow-up"...
e.g.
a["A"] = "Follow-up"
a["B"] ="Reject"
a["C"]="Ongoing"
....



moonhkt

Range("A1").Value = "abc"

better:

Worksheets("Sheet1").Range("A1").Value = "abc"



"moonhk" wrote:

>
> Hi All
>
> IN VBA,How to define variable a("H") = "Follow-up"...
> e.g.
> a["A"] = "Follow-up"
> a["B"] ="Reject"
> a["C"]="Ongoing"
> ....
>
>
>
> moonhkt
>

the code earlier assumed you wanted data in cells

maybe this suits the question better:

Dim col As Collection
Set col = New Collection
col.Add "following", "A"
col.Add "reject", "B"
MsgBox col("B")


"Patrick Molloy" wrote:

> Range("A1").Value = "abc"
>
> better:
>
> Worksheets("Sheet1").Range("A1").Value = "abc"
>
>
>
> "moonhk" wrote:
>
> >
> > Hi All
> >
> > IN VBA,How to define variable a("H") = "Follow-up"...
> > e.g.
> > a["A"] = "Follow-up"
> > a["B"] ="Reject"
> > a["C"]="Ongoing"
> > ....
> >
> >
> >
> > moonhkt
> >

Hi All
Thank. It works.

Sub abc()

Dim col As Collection
Dim x As String
Set col = New Collection
col.Add "following", "A"
col.Add "reject", "B"
x = "B"
MsgBox col(x)
MsgBox col("A")
End Sub




On Oct 2, 5:44*pm, Patrick Molloy
<PatrickMol...@discussions.microsoft.com> wrote:
> the code earlier assumed you wanted data in cells
>
> maybe this suits the question better:
>
> Dim col As Collection
> Set col = New Collection
> col.Add "following", "A"
> col.Add "reject", "B"
> MsgBox col("B")
>
> "Patrick Molloy" wrote:
> > Range("A1").Value = "abc"
>
> > better:
>
> > Worksheets("Sheet1").Range("A1").Value = "abc"
>
> > "moonhk" wrote:
>
> > > Hi All
>
> > > IN VBA,How to define variable a("H") = "Follow-up"...
> > > e.g.
> > > a["A"] = "Follow-up"
> > > a["B"] ="Reject"
> > > a["C"]="Ongoing"
> > > ....
>
> > > moonhkt