Hi Kev,

for filling combobox with values you have in excel range (a2 .. last
populated row in column a) use something like this:

Private Sub cboPartsused_Click()
dim rng as range
set rng = range("a2")
userform1.combobox1.list=range(rng.address,rng.End (xlDown).Address).value
End Sub

Regards,
Ivan