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" <Abraham.Olson@gmail.com> wrote in message
news:1152283361.856544.227080@p79g2000cwp.googlegroups.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?
>