edit code for list box only have data

dear Norie
its work good
i have note if can make it
in column E the data with decimal i need in listbox not show decimal number for data in column E
also can explain how can calculated column width as
.ColumnWidths = "100;20;50;50;20"

Originally Posted by Norie

Try this.

Private Sub UserForm_Initialize()
'Macro Purpose: To populate a multi-column listbox with data from
'               a worksheet range
    
    Dim lbtarget As msforms.ListBox
    Dim rngSource As Range
    
    'Set reference to the range of data to be filled
    With Worksheets("Waiting list")
        Set rngSource = Worksheets("Waiting list").Range("A2:E" & .Range("A" & Rows.Count).End(xlUp).Row)
    End With
   'Fll the listbox
    Set lbtarget = Me.ListBox1
    With lbtarget
        'Determine number of columns
        .ColumnCount = 5
        'Set column widths
        .ColumnWidths = "100;20;50;50;20"
        'Insert the range of data supplied
        .List = rngSource.Cells.Value
    End With
    
End Sub