Hi Claus,

try something like this:

for each oleobject in worksheets("Sheet1").oleobjects

Regards,
Ivan