A
Alan Beban
I previously ran the following code in xl2000, Windows98
Sub AB1()
Dim x As Dictionary
Dim arr(1 To 11, 1 To 1), arr2
arr = Range("A1:A11")
Set x = New Dictionary
On Error Resume Next
For Each Elem In arr
x.Add Item:=Elem, key:=CStr(Elem)
Next
On Error GoTo 0
'Load a 0-based horizontal array with the unique
'elements from the Dictionary Object
arr2 = x.Items
End Sub
I upgraded to WindowsXP and am still running xl2000. In my file with
the above code, in the VBE, clicking Tools|References shows that
Microsoft Scripting Runtime is available (i.e., it is included in the
list and has a checkmark alongside it). The above code, though, produces
an error message at the first line--Can't find project or library.
What am I doing wrong?
Thanks in advance,
Alan Beban
Sub AB1()
Dim x As Dictionary
Dim arr(1 To 11, 1 To 1), arr2
arr = Range("A1:A11")
Set x = New Dictionary
On Error Resume Next
For Each Elem In arr
x.Add Item:=Elem, key:=CStr(Elem)
Next
On Error GoTo 0
'Load a 0-based horizontal array with the unique
'elements from the Dictionary Object
arr2 = x.Items
End Sub
I upgraded to WindowsXP and am still running xl2000. In my file with
the above code, in the VBE, clicking Tools|References shows that
Microsoft Scripting Runtime is available (i.e., it is included in the
list and has a checkmark alongside it). The above code, though, produces
an error message at the first line--Can't find project or library.
What am I doing wrong?
Thanks in advance,
Alan Beban