Excel VBA: Копирование листа из другой книги - VBA - Ответ 1921158

Sub Процедура1()
    Dim ZDBFileName As String
    Dim Лист1 As Excel.Worksheet
    Dim Книга2 As Excel.Workbook
    Dim НомерЛиста As Long
    
    ZDBFileName = Workbooks("1.xls").Path & "\2.xls"
    'Обращаться к листу Z книги 1.xls будем через переменную Лист1
    '(так удобнее и кода меньше писать).
    Set Лист1 = Workbooks("1.xls").Worksheets("Z")
    'Определение порядкового номера листа Z в книге 1.xls.
    НомерЛиста = Лист1.Index
    'Обращаться к книге 2.xls будем через переменную Книга2.
    Set Книга2 = Workbooks.Open(Filename:=ZDBFileName)
    'Копирование листа Z из книги 2.xls в книгу 1.xls
    Книга2.Worksheets(Лист1.Name).Copy Before:=Лист1
    'Чтобы не появлялись предупреждающие сообщения об удалении листа.
    Application.DisplayAlerts = False
    'Удаление старого листа Z из книги 1.xls
    Лист1.Delete
    'Чтобы появлялись предупреждающие сообщения тогда,
    'когда они должны появляться.
    Application.DisplayAlerts = True
    'Переименовываем вставленный лист.
    Workbooks("1.xls").Worksheets(НомерЛиста).Name = "Z"
End Sub