gibbo1715
07-23-2007, 11:07 AM
Hi All
Can anyone tell me what is wrong with the code below please as it doesnt add anything to my combobox?
thanks
Gibbo
Dim iLastRow As Long
iLastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="PopulateCombo", RefersToR1C1:=Sheets("Sheet2").Range("A1:A" & iLastRow)
Me.ComboBox1.RowSource = PopulateCombo
Can anyone tell me what is wrong with the code below please as it doesnt add anything to my combobox?
thanks
Gibbo
Dim iLastRow As Long
iLastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="PopulateCombo", RefersToR1C1:=Sheets("Sheet2").Range("A1:A" & iLastRow)
Me.ComboBox1.RowSource = PopulateCombo