I have created a user form that has a row of ComboBoxes I need filled with a bunch of sites. I had this set up to list in each ComboBox, but the code was getting way too long so I decided to try and declare the array and list it in the ComboBoxes that way. However, I am getting the above error and cannot figure out if I missed a step or have something written wrong. Any help would be greatly appreciated.
Private Sub UserForm_Initialize()
'Declare arrays to use in ComBoxes
Dim SitesArray As Variant
SitesArray = Array("Alexandria (L: Drive):", "Boonville (H: Drive)", _
"Boonville (P: Drive)", "Brampton (I: Drive)", "Burnaby (I: Drive), _
"Hilroy (L: Drive)", "Kemper/Lincolnshire (G: Drive)", "Kemper/Lincolnshire (I: Drive)", _
"Kemper/Lincolnshire (K: Drive)", "Kemper(S: Drive)", "Kettering (L: Drive)", _
"Ogdensburg (I: Drive)", "Ontario (I: Drive)", "Pleasant Prairie (G: Drive)", _
"San Mateo/RWS (I: Drive)", "Sidney (L: Drive)", "Sidney AFSP1 (R: Drive)", _
"Sidney MGPP1 (M: Drive)", "MCOP local (T: Drive)", "")
'Dim ReadWriteArray As Variant
'ReadWriteArray = Array("Read", "Write", "")
ComboBox3.List = Array("Engineering Laptop - For limited Users", "Light Wieght Laptop", "Standard Laptop", "Stanard Destop", "Mac Pro Laptop - For certain areas only", _
"iMac - For certain areas only", "Mac Pro Desktop - For certain areas only", "")
'Set ComboBoxes to show array
SiteComboBox1.List = SitesArray
End Sub
Bookmarks