Sub loadparts(a)

Sheets("Sheet1").Select

Dim lists()

b = 2

'what is the meaning of two dots.

x:

'''''''''''''''''''''''''''''''''''''''''''

If Cells(b, a) <> "" Then

ReDim Preserve lists(1 To b - 1)

lists(b - 1) = Sheets(b, a)

b = b - 1: GoTo x

End If


UserForm1.ListBox1.List = lists()

End Sub