Here is an example

Dim dict As Object
Dim ary
Dim i As Long

Set dict = CreateObject("Scripting.Dictionary")
With dict
.Add "a", "Athens" ' Add some keys and items.
.Add "b", "Belgrade"
.Add "c", "Cairo"
End With

ary = dict.Items

For i = 0 To dict.Count - 1
Debug.Print ary(i)
Next


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Abe" wrote in message
oups.com...
I have a dictionary, named dictCornerCellPics, whose items are all
picture objects. I want to loop through each picture's name (not key!)
and if it satisifies a condition, the code does something. This below
gives the gist of what I want to do, but doesn't work.

dim pic as Picture
dim picName as string

For each pic in dictCornerCellPics
picName = pic.name
if picName like "UL*" then
'does some stuff
end if
next pic

This code also returns an error if I use dictCornerCellPics

The code above returns an "Object Required" error. Anybody know what's
wrong with the above code, or can give a better/different way to
achieve the same thing?