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

Thanks , but I solved the problem

I've added a new variable StrCombItem
Use StrCombItem to store the value from == HelpSheet.Cells(Row, 1)
and changed the additem value
ComboBoxTopics.AddItem StrCombItem

This works for me.
Mario

"Mario" wrote in message
...
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