Cerrar archivo excel (nombre variable)

Buena tarde,

tengo este código que me abre un archivo que cambia de nombre todos los días, pero contiene los mismos campos que requiere la Macro. Lo que no puedo es cerrar el archivo, ya que el nombre de este archivo cambia cada día.

Application.ScreenUpdating = False

Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena

Mensaje = "CARGAR ATCON DEL DIA"

Estilo = vbYesNo + vbCritical + vbDefaultButton2

Título = "Datos"

Respuesta = MsgBox(Mensaje, Estilo, Título)

If Respuesta = vbYes Then

NombreArchivo = ActiveWorkbook.Name

ArchivoAAbrir = Application.GetOpenFilename("atcon_YYYYMMDD (*), *")

If ArchivoAAbrir = False Then

Sheets(1).Select

Sheets(1).Activate

End

End If

Workbooks.Open Filename:=ArchivoAAbrir

Necesito cerrar el archivo que abre este código. Gracias.