Getting Run time Error 5 when updating a Pivot Table

[Sahar24]

I am trying to update a pivot table. The following code works on my computer but on my colleague's computer displays-Run time error 5- invalid procedure call or argument. The error accurs on .ChangePivotCache line

Sheets("DB for ECO Qty").Activate
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("ECO Qty over time Graph").Activate


DataArea = "DB for ECO Qty!R1C1:R" & LastRow & "C19"
Range("B4").Select
Application.DisplayAlerts = False


ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
PivotCaches.create(SourceType:=xlDatabase, SourceData:=DataArea, _
Version:=xlPivotTableVersion14)


Application.DisplayAlerts = True

 

[HaHoBe]

Hi, Sahar24,

does this colleague have Excel2010 or Excel2013 installed on the computer? Version:=xlPivotTableVersion14 requires these versions AFAIK.

Ciao,
Holger