The city box is not empty until you click it. You just dont see the cities unless you click it. What you could do is fll the "text box" of the combo so that you can see the first city.
Do this by adding the line:
Worksheets("main").ComboBox2.Text = thisCell
Just after thisCell= ActiveCell etc. just before going into the Do...While loop
Chas
Will send you the file too.
