Copying from Excel to Excel

[Sharkie21]

I'm trying to copy all my PT from one work book to the other without having the links just the table.

My code doesn't seem to paste anything though.

Public Sub ExportExcelChart(xlsObj As Excel.Application)

Dim Pt As PivotTable
Dim Wsht As Worksheet
On Error Resume Next
For Each Wsht In ThisWorkbook.Worksheets
For Each Pt In Wsht.PivotTables
    Pt.PivotSelect "", xlDataAndLabel
    Selection.Copy
    xlsObj.Selection.Paste
Next Pt
Next Wsht

End Sub

 

[Sharkie21]

Prior to the method call I have this.

Dim xlsObj As Excel.Application
Dim xlswk As Excel.Workbook
Dim xlswks As Excel.Worksheet
Set xlsObj = CreateObject("Excel.Application.9")
xlsObj.Visible = True
Set xlswk = xlsObj.Workbooks.Add

 

[Sharkie21]

bump.

It doesn't seem like it's copying. When I break into the code after
selection.copy I go to another app and put paste and nothing happens.