Sub Макрос1()
Dim ACTWB As Workbook
    Application.DisplayAlerts = False
    Path1$ = ThisWorkbook.Path & "\"
    name1$ = ThisWorkbook.Name
    ThisWorkbook.SaveAs Path1 & "Temp.xls"
    Set TempWB = ThisWorkbook
   ' Application.Run "\D\Test1\Temp.xls'!Module1.tt"
    Call tt
    iFullName$ = TempWB.FullName
    Application.DisplayAlerts = True
    Set ACTWB = Workbooks.Open(Path1 & name1)
    TempWB.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    TempWB.Close saveChanges:=False
End Sub
Sub delll()
    iFullName$ = "D:\Тест1\Temp.xls"
    Application.DisplayAlerts = False
    wb.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    wb.Close saveChanges:=False
End Sub

Sub tt() 'копирование файла
    Dim sFileName As String, sNewFileName As String
    
'    Workbooks("Копирование.xls").Activate
'    Workbooks("Книга1.xls").Close False 'закрываем книгу

    sFileName = "D:\Тест2\Test2.xls"  'имя файла для копирования"
    sNewFileName = "D:\Тест1\Test1.xls"    'имя копируемого файла. Директория(в данном случае диск D) должна существовать
    If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
    
    FileCopy sFileName, sNewFileName 'копируем файл
    MsgBox "Файл скопирован", vbInformation, ""

'    With ActiveWorkbook 'закрываем активную книгу
'        .Close False
'    End With
    
End Sub