Error '5' en Tabla dinámica con datos externos.

[losma1]

[sOLUCIONADO] Error '5' en Tabla dinámica con datos externos.

¡Hola! Tengo el siguiente problema con una tabla dinámica, espero me puedan ayudar. Tengo un documento llamado “LibroConConexion.xlsx” que contiene un vínculo de datos al libro “01620.xls” ambos ubicados en C.

Desde un libro actual cualquiera, la macro en VBA abre el “LibroConConexion.xlsx” y llama a la instrucción que crea una tabla dinámica basada en su conexión de datos. Pero obtengo el siguiente mensaje "Se ha producido el error '5' en tiempo de ejecución: Argumento o llamada a procedimiento no válida".

Al seleccionar depurar, me muestra en amarillo toda la instrucción que contiene la TablaDinamica y si presiono la tecla F5 se continúa correctamente con la macro.

¿Cómo puedo evitar el error '5' para que la macro se ejecute correctamente?

Sub Proyecto()'Ejecucion de una macro de forma sucesiva



'Abre un libro que ya contiene una conexion de datos

   Workbooks.Open "C:\LibroConConexion.xlsx"


'Llama a la macro para crear una tabla dinamica

   Call TablaDiamica



End Sub

Sub TablaDiamica()



ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _

        ActiveWorkbook.Connections("01620 'GL Detail$'"), Version:= _

        xlPivotTableVersion12).CreatePivotTable TableDestination:="R1C9", _

        TableName:="Tabla dinámica1", DefaultVersion:=xlPivotTableVersion12



End Sub[/CODE]

DatosAdjuntos.zip

[losma1]

El error se encuentra en la parte de"TableDestination" que hace referencia a la ubicación "R1C9" pero no señala dentro de que hoja.

La respuesta es sustituir:

TableDestination:="R1C9"[/CODE]

por:

[CODE]TableDestination:=ActiveSheet.Cells(1, 9),[/CODE]