Hi,

I want to setup one ComboBox per WorkSheet at startup.
For this I have the following code:
Private Sub Workbook_open()
Worksheets("I_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("I_Calc").ComboBox1.Value = "Gamma"
Worksheets("V_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("V_Calc").ComboBox1.Value = "Gamma"
Worksheets("F_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("F_Calc").ComboBox1.Value = "Gamma"
Worksheets("T_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("T_Calc").ComboBox1.Value = "Gamma"
End Sub

But when I start up the file I get "Permission denied (Error 70)" at line 4.
The setup of the ComboBox1 at WorkSheet(I_Calc) is done correctly by the code.
But for the other WorkSheets it does not work.

What have I done wrong?
I have checked the name of the ComboBoxes and all of them is called ComboBox1.

Br.

Hi Sören,

I could replicate your error if I had set the relevant
ComboBox ListFillRrange property value.



---
Regards,
Norman


"Sören_Marodören" wrote in message
...
Hi,

I want to setup one ComboBox per WorkSheet at startup.
For this I have the following code:
Private Sub Workbook_open()
Worksheets("I_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("I_Calc").ComboBox1.Value = "Gamma"
Worksheets("V_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("V_Calc").ComboBox1.Value = "Gamma"
Worksheets("F_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("F_Calc").ComboBox1.Value = "Gamma"
Worksheets("T_Calc").ComboBox1.List = Array("Alfa", "Beta", "Gamma",
"Delta")
Worksheets("T_Calc").ComboBox1.Value = "Gamma"
End Sub

But when I start up the file I get "Permission denied (Error 70)" at line
4.
The setup of the ComboBox1 at WorkSheet(I_Calc) is done correctly by the
code.
But for the other WorkSheets it does not work.

What have I done wrong?
I have checked the name of the ComboBoxes and all of them is called
ComboBox1.

Br.
/Sören

Japp, there were already data in the ListFillRange.
When I remove it the Workbook_Open macro works.

Thanks!

Br.