I am using the next code in order to place some values from a list to
cells
the code works fine except if the values has decimal places
When the values are pasted at cells they are loosing their decimal places.


For i = 0 To Me.ListBox1.ListCount - 1
For j = 0 To Me.ListBox1.ColumnCount - 1
Worksheets("TEMPPINAKAS").Cells(i + 2, j + 2).Value =
Me.ListBox1.List(i, j)
Next j
Next i

Any ideas.