When you do a For Each on a dictionary object, you enumerate the
Keys, not the Items. Yes, this is counter-intuitive. Change your
code to

For each pic in dictCornerCellPics.Items


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"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?