Thanks for trying, unfortunately I get a syntax error on the line

rng.Resize(,2)

"Tom Ogilvy" wrote:

Just guessing

With Worksheets("Sheet3")
set rng = .Range(.range("A1"),.Range("A1").end(xldown))
End with
rng.Resize(,2)
Combobox1.ColumnCount = 2
Combobox1.RowSource = rng.Address(external:=True)

--
Regards,
Tom Ogilvy

"ndm berry" wrote in message
...
I have a ComboBox on a UserForm that relates to a list which is updated
every
time the workbook is opened. At the moment, so that I can carry on with
other aspects, I have set the rowSource as follows:-

ComboBox1.RowSource = "A1:B456"

This of course is only temporary and I would appreciate a more permanent
solution.

Many thanks in advance.