Conexion SQL desde Excel para ejecutar consulta y traer resultados

[johannacas]

Buenas Tardes

Tengo un problema con una macro que cree para ejecutar una consulta desde excel y que traiga los resultados en una celda en particular.

Hace meses la vengo usando y funcionaba perfecto, pero desde la semana pasada me tira este error:

RUN TIMER ERROR 1004 Application defined or objet defined error

y se tilda la siguiente sentencia

.Refresh BackgroundQuery:=False

Llevo toda una semana investigando que puede ser y no encuentro nada. Agradezco su ayuda *******!!!!

Dim varSQL

' OBTIENE EL NUMERO SIGUIENTE DE BASE

varSQL = Sheets("ArmadoQuery").Range("c23")

Sheets("Resultado").Select

Range("F15").Select

Selection.ClearContents

With ActiveSheet.QueryTables.Add(Connection:= _

"ODBC;DRIVER=SQL Server;SERVER=XXXXX;UID=XXXX;pwd=XXXX;DATABASE=XXXXX" _

, Destination:=Range("F15"))

.CommandText = varSQL

.Name = "Query from bi en bi01"

.FieldNames = False

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlOverwriteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = False

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False

Do While .Refreshing

DoEvents

Loop

End With

End Sub