Error when using additem for a combobox on a form

[Scooterza]

Hi all

I have a userform called "Description_Form". I had a listbox on this which worked 100%. I then decided to replace the listbox with a combobox. I replaced the word listbox1 with combobox1 in teh code below and now I am getting an error message:

Run-time error '-2147352573 (800200003)':

Could not fine the specified object.

I have checked the name of the Combobox and it is definitely combobox1.


<CODE>

Sub PopulateListWithHorizontalRange(New_Dest As Variant)
Dim x As Range
Description_Form.ComboBox1.Clear
For Each x In Range("S_DESTINATIONS").Cells
'here is where I get the error message
Description_Form.ComboBox1.AddItem x.Value
Next

Description_Form.ComboBox1.AddItem "International"
Description_Form.ComboBox1.AddItem "Unknown"

Description_Form.Label2.Caption = "Please choose the destination that corresponds to " & New_Dest
Description_Form.Show


End Sub
</CODE>

 

[Norie]

Have you checked the name of the combobox?

 

[Scooterza]

Hi Norie

Yes, definately Description_Form.Combobox1

 

[Scooterza]

Hi, I MIGHT have been an idiot! MIGHT have had 2 spreadsheets open and it was referring to a different spreadsheet! DOH!