Same Contents, Regardless of Order
On Tue, 17 Jun 2008 07:18:28 -0400, Ron Rosenfeld
wrote:
I worked around this by testing to see if the argument was an object or not,
and using the Count property if it was an object, but I wonder if there is a
more efficient method.
Actually, the Extract function can be simplified:
=======================
Private Function Extract(a) As Variant
Dim i As Long
Dim temp() As Variant
If IsObject(a) Then
ReDim temp(1 To a.Count)
For i = 1 To a.Count
temp(i) = a(i)
Next i
Extract = temp
Else
Extract = a
End If
End Function
=========================
--ron
|