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