Hi there ,

I found the following code to add items to a combobox in a userform for
Excel 2002 , and works just fine in version 2002.

Private Sub UserForm_Initialize()
' Executed before the form is shown
Dim Row As Integer
Set HelpSheet = ThisWorkbook.Sheets(HelpSheetName)
TopicCount =
Application.WorksheetFunction.CountA(HelpSheet.Ran ge("A:A"))
For Row = 1 To TopicCount
ComboBoxTopics.AddItem HelpSheet.Cells(Row, 1)
Next Row
ComboBoxTopics.ListIndex = 0
CurrentTopic = 1
UpdateForm
End Sub

Now I've transferred this code (+ all other codes) and the userform to Excel
2003 and it gives an error message when adding items to the combobox.

Error message =
Run-time error '-2147352571 (80020005)
Type mismatch

When debugging the code stops at
ComboBoxTopics.AddItem HelpSheet.Cells(Row, 1)

Anyone have an idea where the error comes from ?
Thanks for helping out.
Mario