Change listbox value

Hi Stignone

In the UserForm Initialize Event, for each ListBox, change this line of code

Private Sub UserForm_Initialize()
    Dim x As Long
    Dim k As Long
    Dim j As Long
    If MultiPage1.Value = 0 Then x = Sheets("INPUT BS").Range("D10:M50").Rows.Count '<--If you change the Range
    Rx1 = 10 '<----------------------------------------------------------------------You Must Change this
    ListBox1.List = Sheets("INPUT BS").Range("D10:M50").SpecialCells(xlCellTypeVisible).Value '<----Change this line
    For k = 1 To x    'rows
        For j = 1 To 10    'columns
            ListBox1.List(k - 1, j - 1) = VBA.Format(ListBox1.List(k - 1, j - 1), "0")
        Next
    Next