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: