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