You mean a the forms toolbar and not the control toolbox toolbar

Dim drpdown as Excel.DropDown

.. . .


set drpdown = ws1.Dropdowns("combobox1")
drpdown.ListIndex = 2

--
Regards,
Tom Ogilvy



"Hans Preuer" wrote in message
...
Hi,

I will telecommand an excel application from another excel application.
All works fine, except 2 combobox form controls, which I can't set from
outside. How can I set a combobox form control in an App1 by code from my
2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select ?????????????????? does not work
SendKeys ("February") ??????????????????

Thanks
Hans