I'm not for sure, but I think your problem is that you're not specifying
which object in the group to access.

Try below:

dim s as oleobject

for i = 1 to ???
set s = sheet1.oleobjects("TypeOfObject" & i) ' Where the type of object
is the name of your shape

if s.name = blah then
s.object.text = "aaa"
end if

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!