Excel - Duda en llamar una consulta desde query

Estoy una consulta por medio de un query hice una macro para llamar los archivos pero al momento de llamar la hoja de excel me aparece un error, espero puedan ayudarme, necesito saber como cargar el archivo en excel donde esta mi base de datos para correr el query.

les dejo la macro

Dim DIRECTORIO
DIRECTORIO = ActiveWorkbook.Path
Dim ARCHIVO
ARCHIVO = DIRECTORIO + "\" & "BASE CONSULTA.xlsb"

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=ARCHIVO;DefaultDir=directorio;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT * FROM `AUXILIARES$` `AUXILIARES$`, `CATALOGO$` `CATALOGO$`" & Chr(13) & "" & Chr(10) & "WHERE `AUXILIARES$`.`CUENTA` = `CATALOGO$`." _
, "CUENTA")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabla_Consulta_desde_Excel_Files1"
.Refresh BackgroundQuery:=False
End With



End Sub