Hi All

I have the following code which populates my listbox from a row source.
Column A is single digit
Column B is String
Column C is number
Column D is number

The format in the row reference is correct. How can i get Columns C & D to show as two decimals instead of 1 i.e
150.50 shows as 150.5

Dim Lastrow As Long
Lastrow = Sheets(UserForm1.TextBox6.Value).Cells(Rows.Count, "A").End(xlUp).Row
Dim RRowSource As Range
With UserForm1.ListBox1
Set RRowSource = Sheets(UserForm1.TextBox6.Value).Range("a7:d" & Lastrow)
    .RowSource = vbNullString
    .List = RRowSource.Value
End With