Good Evening,

Grateful for some hints about following;

Filling a ListBox with values from a WorkSheet with below code:
----
Item1 = Sheets(1).Cells(r, 1)
UserForm3.ListBox2.AddItem Item1
----

This is working OK, but the cells in the Sheet is formatted as numbers 1,00
0,75 0,50 etc.
When showed in the ListBox they are in text(?) format as 1 0,75 0,5.
How to make the ListBox to show all decimals as in number format?

Brgds

CG Rosén

Hi CG Rosén,
Replace
=Sheets(1).Cells(r, 1)
by
=Sheets(1).Cells(r, 1).Text

--
Regards,
Sébastien

Thanks Sebastienm! worked perfect.

Brgds

CG Rosén

"sebastienm" wrote in message
...
Hi CG Rosén,
Replace
=Sheets(1).Cells(r, 1)
by
=Sheets(1).Cells(r, 1).Text

--
Regards,
Sébastien