You can use a for each something like this...

Sub test()
Dim dic As Object
Dim dicItem As Variant

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "this", "This"
dic.Add "That", "That"

For Each dicItem In dic
Debug.Print dicItem
Next dicItem

End Sub
--
HTH...

Jim Thomlinson


"Ben" wrote:


Hi all,

Is there a way to iterating through the entire dictionary object. I want to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--