Private Sub Userform_Initialize()
Call ManageMyLIST(ListBox1, True)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call ManageMyLIST(ListBox1, False)
End Sub
Private Sub ManageMyLIST(ByVal CTL As Object, Optional ReadWrite As Boolean = True)
With Worksheets("SETUP").Range("A1")
If ReadWrite = True Then
CTL.List = .CurrentRegion.Value
Else
.CurrentRegion.ClearContents
.Resize(CTL.ListCount, CTL.ColumnCount).Value = CTL.List
CTL.Clear
End If
End With
End Sub