Cerrar libros que abre un loop

[Sebastianss]

Hola Amigos

Investigando en la Web y con la primera ayuda de este foro finalmente logré escribir 
el código (que necesito) dentro de un Loop While. Sin embargo, no he podido escribir despés de
Application.CutCopyMode = False, la instrucción que cierre el primer libro y siguientes que abrirá el Loop cada vez que corre el Código.
Abajo incluyo las primeras líneas del Código. En la 

Con la instrucción termino el Código que he estado escribiendo. Una vez que lo pruebe, lo compartiré en el Foro

Agradezco la ayuda.

Sub importador()
Dim myfolder As String, myfile As String
Dim destination As Worksheet

'destination = ThisWorkbook.Sheets("Sheet1")
Set destination = Sheet1
myfolder = "D:\ABC\data"
myfile = Dir(myfolder & "\*xl*")

Do While myfile <> ""
	Workbooks.Open Filename:=myfolder & "\" & myfile 'Abre el primer archivo xls
	Range("A1:DS2").Select 
	Selection.Copy
    	Application.Left = 721.75
    	Application.Top = 61.75
    
    	Windows("importador.xlsm").Activate ‘Este es el libro que corre el código. ¿Hay otra instrucción para llamarlo?
    	ActiveSheet.Paste
    	Range("A1").Select
    	Application.CutCopyMode = False
  
 'Aquí necesito una instrucción para cerrar cada libro Excel que abre el loop

	Sheets(Hoja1).Select
	.
	.
	.
	.
	.
End Loop

End Sub