Actualización de tabla dinámica código VB.

Buenas tardes.

Necesito ayuda con un archivo de excel, este archivo tiene una macro que actualiza los datos de origen de una tabla dinámica, todo por medio de una macro, este archivo funciona a la perfección en mi maquina pero cuando lo envío a otra pc y deseo que la macro ejecute este proceso me genera un error, esto es porque no encuentra la raíz de mi computadora.

Me podrían ayudar expertos.

Saludos JPC.

Este es mi código.

Range("A1").Select
ActiveSheet.PivotTables("Tabla dinámica1").Name = "Resumen Consulta1"
ActiveSheet.PivotTables("Resumen Consulta1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Documents and Settings\jiovani.perez\Mis documentos\REPORTE SEMÁFORO\Consulta1!R4C1:R1048576C17" _
, Version:=xlPivotTableVersion12)
ActiveSheet.PivotTables("Resumen Consulta1").PivotCache.Refresh