Macro code working fine in excel 2013 but not in excel 2010.

Hi everyone,

We have written the below macro code. It works fine in Excel 2013 but not for 2010. The code is for getting unique values.
It does not show error for the macro, but it still does NOT process.
Can u please guide us?


Sub GetUniquecampaigns()
Dim d As Object, c As Variant, i As Long, lr As Long
Set d = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, 1).End(xlUp).Row
c = Range("A2:A" & lr)
For i = 1 To UBound(c, 1)
d(c(i, 1)) = 1
Next i
Sheets("sheet1").Range("A3").Resize(d.Count) = Application.Transpose(d.keys)

End Sub

sere,
Please wrap your code with code tags as per forum's rule.
It is difficult to see why the code is not working.
Possible reasons.
Since you are running it on active sheet, this sheet should have values in column A.
If you only have a single sheet, that is sheet1, the code is overwriting the result on the same column A.
Please attach a sample with the code to see what is going.

Please Login or Register  to view this content.