Sub 목록정렬(목록 As MSForms.ListBox, _
                       Optional 정렬방식 As Integer = xlAscending)

    Dim 건수 As Integer
    
    건수 = 목록.ListCount

    If 건수 > 1 Then
        
        Application.ScreenUpdating = False
        
            Worksheets.Add
                
            With Range("A1").Resize(건수, 1)
                .Value = 목록.List
                .Sort Key1:=Range("A1"), Order1:=정렬방식, Header:=xlNo
            End With
        
            With 목록
                .Clear
                .List = Range("A1").CurrentRegion.Value
            End With
            
            Application.DisplayAlerts = False
                ActiveSheet.Delete
            Application.DisplayAlerts = True

        Application.ScreenUpdating = True

    End If

End Sub
