Can somebody point out to me what is wrong with this?

[PATSYS]

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Database").CreatePivotTable TableDestination:= _
        "[Thisworkbook.Name]Output!R12C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion10

This is part of the macro that runs on workbook_open event.

These is a debug error highlighting this par tof the code. I suspect it is particularly on the "Thisworkbook.Name" part.

I can't figure it out, help please.

Thanks

 

[Norie]

That code is looking for a workbook actually called literally ThisWorkbook.Name.

If you want to actually put the workbook's name in the code try this.

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Database").CreatePivotTable TableDestination:= _
        "[" & ThisWorkbook.Name & "]Output!R12C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion10

 

[PATSYS]

That code is looking for a workbook actually called literally ThisWorkbook.Name.

If you want to actually put the workbook's name in the code try this.

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Database").CreatePivotTable TableDestination:= _
        "[" & ThisWorkbook.Name & "]Output!R12C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion10

Thanks Norie, that solves it.