Try:
For Each varKey In oDic.Keys() Range("A" & varKey).Value = oDic(varKey)Next
Note that the key iterator must be declared as a Variant.
Variant