Private Sub UserForm_Initialize()
Dim wb As Workbook
Dim rng as Range
Set wb = Workbooks.Open("f:\db1.xls")
With wb.Sheets("Cust")
set rng = .Range(.Range("A2"), .Range("A2").End(xldown))
End with
Me.cboCust.List = rng
With wb.sheets("Subdiv")
set rng = .Range(.Range("A2"),.Range("A2").End(xldown))
End With
Me.cboSub.List = rng
wb.Close False
end Sub

--
Regards,
Tom Ogilv

--
Message posted from http://www.ExcelForum.com