Сортировка в Excel из VB

Private Sub Command1_Click()
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
objExcel.Visible = True
objExcel.Workbooks.OpenXML App.Path & "\Documents\Be.xls"
objExcel.Sheets("Лист3").Select

objExcel.Workbooks("Be.xls").Sheets("Лист3").Activate
objExcel.Range("A1").Value = "1"
objExcel.Range("A2").Value = "2"
objExcel.Range("A3").Value = "3"
objExcel.Range("A4").Value = "4"
objExcel.Range("B1").Value = "Сидоров"
objExcel.Range("B2").Value = "Петров"
objExcel.Range("B3").Value = "Иванов"
objExcel.Range("B4").Value = "Зайцев"
objExcel.Workbooks("Be.xls").Sheets("Лист3").Sort.SortFields.Clear
objExcel.Workbooks("Be.xls").Sheets("Лист3").Sort.SortFields.Add Key:=Range("B1:B4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With objExcel.Workbooks("Be.xls").Sheets("Лист3").Sort
        .SetRange Range("A1:B4")
        .Header = xlGuess
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

MsgBox "Продолжить?", vbOKOnly + vbExclamation, "Предупреждение"

objExcel.Application.DisplayAlerts = False
objExcel.Application.Quit
objExcel.Application.DisplayAlerts = True
Set objExcel = Nothing

End Sub