I have a problem with my code...
My form contains the following combo boxes and they all work fine unti
i use clear form button which re calls the Userform_Initialize sub. I
then highlights the cboCustomer.Clear and says that it is an invali
property. If i change it to cboCustomer.Value it unhightlights an
highlights the next in list. This is ok until i click clear form and i
says Invalid Property... HELP!
Private Sub UserForm_Initialize()
cboCustomer.Clear
cboSupplier.Clear
cboCommodity.Clear
cboBuyer.Clear
cboIncType.Clear
txtAccount.Value = ""
txtAccountName.Value = ""
ActiveWorkbook.Sheets("Raw Data").Activate
With cboCustomer
cboCustomer.RowSource = ("A6076:A6120")
End With
cboCustomer.Value = ""
With cboSupplier
cboSupplier.RowSource = ("A5937:A6059")
End With
cboSupplier.Value = ""
With cboCommodity
cboCommodity.RowSource = ("A5895:A5934")
End With
cboCommodity.Value = ""
With cboBuyer
cboBuyer.RowSource = ("A6062:A6073")
End With
cboBuyer.Value = ""
With cboIncType
.AddItem "Internal"
.AddItem "External"
End With
cboIncType.Value = ""
cboSupplier.SetFocus
End Su
--
Message posted from
http://www.ExcelForum.com