On which line? (if you hit Debug you should see a line highlighted)
YOu may need to change this:
[VBA]Dim dc1 As New Dictionary, dc2 As Dictionary[/VBA]
to this:
[VBA]Dim dc1 As New Dictionary, dc2 As New Dictionary[/VBA]

Incidentally, where did you get this code from? It might be easier to ask the author why it doesn't work!