Макрос сохранение активного листа книги в отдельный файл

  With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
        If .Show = 0 Then Exit Sub
        ThisWorkbook.ActiveSheet.Copy
        Application.DisplayAlerts = False
        .Execute
        Application.DisplayAlerts = True
    End With
    ActiveWorkbook.Close False

With Application.FileDialog(msoFileDialogSaveAs)
     .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
     If .Show = 0 Then Exit Sub
         
     Application.DisplayAlerts = False
     ActiveSheet.Copy: .Execute
     ActiveWorkbook.Close False
     Application.DisplayAlerts = True
End With

With Application.FileDialog(msoFileDialogSaveAs)
     .InitialFileName = "C:\Users\Media#1\Documents\Reports\" & ActiveSheet.Name
     If .Show = 0 Then Exit Sub
         
     Application.DisplayAlerts = False
     ActiveSheet.Copy
     ActiveWorkbook.Close True, .SelectedItems(1)
     Application.DisplayAlerts = True
End With