change properties on

i am trying to modify the property of control toolbox by looping through all
the controls on a spreadsheet. below is the code. in the code below i am able
to retrieve properties such as (xa=ctl.name), but am unable to alter the
properties of the control. CTL.Caption="test" returns an error. any help
would be appreciated.

thks


Dim ctl as Object
For each ctl in ActiveSheet.Shapes
xa=ctl.Name
ctl.caption="test"?
Next