PDA

View Full Version : [SOLVED] struggling with excel combo boxes macro



megha
03-10-2014, 10:47 AM
I have three combo boxes on my file with following code on module1:



Public ConductList, UnitList, TeamList As Variant

Const InDebugMode As Boolean = False
Sub CreateComboboxLists()
ConductList = Array("Barone, G.", "Barton, N.", "Batiato, B.", "Bennett, T.", "Bigham,S.", "Burkhart, M.", _
"Chiaravalloti, N.", "Cunningham, D.", "Damiano, G.", "DeSantis, L.", "Dietrich, S.", "Ferris, J.", "Firmin, P.", _
"Fisher, M.", "Fraga, F.", "Garcia, N.", "Gray, J.", "Irwin, K.", "Jordan, B.", "Kenny, T.", "Kirgan, K.", "Kressley, A.", _
"Larochelle, J.", "Ledoux, J.", "McCarthy, B.", "Medina, O.", "Miller, W.", "Patel, P.", _
"Pryor, C.", "Renn, T.", "Santos, M.", "Scott, A.", "Seigler, J.", "Sheridan, G.", "Ward, M.", "Wenk, R.", "West, S.")

UnitList = Array("Area1", "Area3", "Area4", "Area5", "CLEU", "DSU1", "DSU2-COB-WGS", "EastSide-MLR", "FCBW", _
"Hydrogen Plant", "PS-SDA", "PolyProp", "PFBW", "Process Units", "Utilities")
TeamList = Array("A", "B", "C", "D")

End Sub


and following code on This Workbook:



Private Sub Workbook_Open()


ID.List = ConductList
Team.List = TeamList
Unit.List = UnitList
Call CreateComboboxLists


End Sub


When i open the file I get error message "run time error 424 - object required" and all of my conbo boxes remain blank - nothing come up on the drop down. Can you please help with this? I am going crazy.

Thank you so much!