Problem with Workbook_Open
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. |
Problem with Workbook_Open
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 |
Problem with Workbook_Open
Japp, there were already data in the ListFillRange.
When I remove it the Workbook_Open macro works. Thanks! Br. |
All times are GMT +1. The time now is 12:49 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com