Private Sub cmdSort_Click()
Application.ScreenUpdating = False
Workbooks.Add
Range(Cells(1, 1), Cells _
(lstSort.ListCount, 2)).Value = lstSort.List
Range("A1").Sort key1:=Range("A1"), _
order1:=xlAscending, key2:=Range("B2"), _
order2:=xlAscending
lstSort.List = Range("A1").CurrentRegion.Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub