Take that value in the listfillrange property and clear it.

instead

Private Sub worksheets_Activate()
combobox1.ListFillRange = ""
Combobox1.clear
for each cell in ["Sheet1!A1:A200"]
combobox1.AddItem cell.value
Next
End Sub

Right click on the sheet tab and select view code. Put in the above.

you have to activate the sheet to fill the combobox. So you don't want to
open to that sheet or you need to add similar code in the workbook open
event or have the workbook open event activate another sheet, then activate
this sheet.

--
Regards,
Tom Ogilvy


"Ruan Walters" wrote in message
...
Hello Tom,

I am still new at this, so I am not exactly sure what you mean by "fill
the combo box with code".

The LinkedCell property is empty and the ListFillRange property has the
name of the range of the List of Sort Criteria, which resides on another
sheet.

Ruan



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!