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