Como evitar que apareçam as janelas de mensagem após o "ActiveWindow.Close"?

http://goo.gl/UYfsFf

Sub eficiencias()
'
' eficiencias Macro
'

'
Sheets("10").Select
Application.Goto Reference:="R1C39"
ChDir "C:UsersFelippeDropboxData"
Workbooks.Open Filename:= _
"C:UsersFelippeDropboxDataResultado da semana (respostas).xlsx"
Columns("A:F").Select
Selection.Copy
Windows("Projeto - Reciclecel Escoteiros.xlsm").Activate
ActiveSheet.Paste
Windows("Resultado da semana (respostas).xlsx").Activate
ActiveWindow.Close
Sheets("Menu").Select
End Sub