Thanks again Tom
I here i have try every thing, and then its so simple.

Many thanks

alvin


"Tom Ogilvy" skrev:

kursist2.AddItem c.Text

will put in the cell exactly as it appears on the worksheet.

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
hi!
I use this in a form
Dim myrange3 As Range

Setmyrange3 = Sheets("kursister").Range("kursister")

For Each c In myrange3

kursist2.AddItem c.Value
Next

In the sheets i have the format 01- 02 - 03 and so on.
how can i get this format into my combobox, now i get 1 - 2-3 an so on

Best regards

alvin