Hi,

I have a macro where I am trying to pull information from one sheet into another - similar to a vlookup, however, I would like this done through a scripting dictionary. The script below is ok, however, it takes a really long time to run looping through each value and I have around 120,000 rows. Any help would be greatly appreciated.. 

Dim i%, lr1%, lr2%, d As Object
Set d = CreateObject("scripting.dictionary")
lr1 = Sheet11.Cells(Rows.Count, 5).End(xlUp).Row
lr2 = Sheet14.Cells(Rows.Count, 1).End(xlUp).Row
'Sheet2
For i = 2 To lr1
d(Cells(i, 1).Value) = Cells(i, 6).Value
Next
'Sheet1
For i = 2 To lr2
Cells(i, 9).Value = d(Cells(i, 3).Value)
Next