Over here you have to change it to "Sheet1"
Attachment 30676
Printable View
Over here you have to change it to "Sheet1"
Attachment 30676
Either:
In the VBE, go to Tools|References… and tick Microsoft Scripting Runtime
Attachment 30677
or:
change the lines:
to:Code:Dim rebars2 As Scripting.Dictionary
Set rebars2 = New Scripting.Dictionary
and change the line:Code:Dim rebars2 As Object
Set rebars2 = CreateObject("Scripting.Dictionary")
to:Code:lb.AddItem rebars2.Items(i) & " - " & rebars2.Keys(i)
Code:lb.AddItem rebars2.Items()(i) & " - " & rebars2.Keys()(i)
I don't know, I just did a bit of research and that's what's needed if you use late binding (that is, if you're not using the Microsoft Scripting Runtime reference)
ps, don't quote the whole post, I didn't notice at first that you'd added a question in among the quote.