Macro for pivot tables Error

[arnevos]

Hello,

I want to create a macro that automatically puts my data in a pivot table. When I record the macro and run it the first time there is no problem, but when I mail this file to a collegue and he tries the same macro again (CTRL + m) he gets an error:

Can anybody help me? I have included the file:


https://app.box.com/s/crta6mv6umos8u1b18s1gu4w1idys7lc

Thanks in advance!!

 

[RoryA]

What error does he get?

 

[arnevos]

What error does he get?

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Export 2015 !R1C1:R1048576C17", Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="2015!R3C1", TableName:="Draaitabel1", _
DefaultVersion:=xlPivotTableVersion15

If you press CTRL + m in the file you will see the full error

 

[RoryA]

If you press CTRL + m in the file you will see the full error

How do you know that, if it works for you?

Does your colleague have Excel 2013? If not, you need to change xlPivotTableVersion15 to xlPivotTableVersion14 (or leave out the version).