Открытие Excel и активация нужного листа

Set oExcel = CreateObject("Excel.Application") 'создать объект Microsoft Excel
oExcel.Workbooks.Open "D:\Рабочая папка\" & Имя_файла, , , , "111", "11" '111 это пароль на открытие файла, 11 это пароль на изменеие
'oExcel.Workbooks.Open "D:\Рабочая папка\" & Имя_файла, , , ,111, 11 '111 это пароль на открытие файла, 11 это пароль на изменеие
oExcel.Visible = True 'False

 Private Sub Command1_Click()
Set oExcel = CreateObject("Excel.Application") 'ñîçäàòü îáúåêò Microsoft Excel
oExcel.Workbooks.Open "C:\111\AIC_SIP" & AIC_SIP, , , , 111, 11 '111 ýòî ïàðîëü íà îòêðûòèå ôàéëà, 11 ýòî ïàðîëü íà èçìåíåèå
oExcel.Visible = True 'False
 Windows("AIC_SIP.xls").Activate 'àêòèâàöèÿ ìîåãî ôàéëà
 Range("A1:C3").Select 'âûáèðàþ äèàïàçîí ÿ÷ååê
    Selection.Copy 'êîïèðóþ
   End Sub

Windows("AIC_SIP.xls").Activate 'активация моего файла
 Range("A1:C3").Select 'выбираю диапазон ячеек
    Selection.Copy 'копирую

oExcel.Visible = True 'False

Set oExcel = CreateObject("Excel.Application") 'создать объект Microsoft Excel
oExcel.Workbooks.Open "C:\Documents and Settings\S_e_m\Рабочий стол\AC_SIP\222" & xls 'открываю книгу 222
oExcel.Visible = True 'False
 
 oExcel.Range("B5:E13").Select 'выбираю диапазон ячеек
    oExcel.Selection.Copy 'копирую
oExcel.Workbooks.Open "C:\Documents and Settings\S_e_m\Рабочий стол\AC_SIP\111" & xls 'открываю другую книгу 111
oExcel.Visible = True 'False
oExcel.Range("A1").Select 'Выделил стартовую ячейку
    oExcel.ActiveSheet.Paste 'Вставил

oExcel.Application.Run "'111.xls'!Ìàêðîñ1"

  Dim exl As Object
    Dim xlUp As Object
    Dim Selection As Object
    Dim xlDown As Object
    Dim xlAscending As Object
    Dim xlGuess As Object
    Dim xlTopToBottom As Object
    Dim xlSortNormal As Object
 
    Sub Ned_Poriv()
        exl = CreateObject("excel.application")
        exl.Workbooks.Open(Filename:="C:\Documents and Settings\Сем\Рабочий стол\Excel.xls")
        exl.Sheets("Період2").Select()
        exl.visible = True
 
     
        exl.Sheets("71010000").Select()
        exl.Cells.Select()
        exl.Selection.Delete(Shift:=xlUp)
        exl.Sheets("Період1").Select()
        exl.Cells.Select()
        exl.Selection.Copy()
        exl.Sheets("71010000").Select()
        exl.Cells.Select()
        exl.ActiveSheet.Paste()
        exl.Rows("1:1").Select()
        exl.Range(Selection, Selection.End(xlDown)).Select()
        exl.Application.CutCopyMode = False
        exl.Selection.Sort(Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal)
        'oExcel.Workbooks.Add()
        'oExcel.Sheets.Add.Name = ComboBox1.Text 
    End Sub
End Module