Morning Kev,

(so you have the same time as me in Prague),

now I can see it, change also:
Me.cboPartsUsed.List = Range(rng.Address,rng.End(xlDown).Address).Value

to be:
Me.cboPartsUsed.List =
rng.parent.Range(rng.Address,rng.End(xlDown).Addre ss).Value

Regards,
Ivan