Originariamente inviato da micdas
Ho provato coi suggerimenti del sito che hai suggerito
codice:
For Each K In coll.Keys
    debug.print "Key: " & K , "Value: " & coll.Item(K)
Next
ma il coll.Keys mi da errore perchè non supportato.
Attenzione, lì infatti si riferisce ad un altro tipo: Dictionary, che diventa disponibile nel momento in cui nel progetto VBA aggiungi il riferimento a Microsoft Scripting Runtime.