Private Sub UserForm_Initialize()
Dim WS As Worksheet, Source$
Set WS = Sheets("Ref")
Source = WS.[A1].Parent.Name & "!" & WS.Range("A2", WS.Cells(Rows.Count, "G").End(xlUp)).Address
With ListBox1
.Clear
.ColumnHeads = True: .ColumnCount = 7: .RowSource = Source
End With
End Sub