Variable Name
Just to throw something out. I know this is most likely not useful, but
thought I would mention it. In "some" situations, the following "very
general idea" can simplify certain code.
A dedicated routine to update the Coll. helps.
Sub Demo()
Dim nm1
Dim nm2
Dim j
Dim v As New Collection
nm1 = "x"
nm2 = "y"
v.Add Array("nm1", nm1), "nm1"
v.Add Array("nm2", nm2), "nm2"
For j = 1 To v.Count
Debug.Print v(j)(0) & " holds - " & v(j)(1)
Next j
End Sub
Returns...
nm1 holds - x
nm2 holds - y
"Leo Heuser" wrote in message
...
You're welcome.
"LadaDriver " skrev i en
meddelelse ...
good idea,
thx
|