Hi all,

I need some help. I have a pivot table, and I have to create it's plain copy
in a new workbook, but preserving the layout (i.e., it should be a plain
table looking exactly as the pivot table).

I tried to use the following code:

Sub Export_PivotTable()
Sheets("Table").PivotTables(1).PivotSelect "", xlDataAndLabel, True
Selection.Copy

Set New_Book = Workbooks.Add
New_Book.Sheets(1).Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
End Sub

However, it fails on line Selection.PasteSpecial Paste:=xlPasteValues
(gives Error 1004: PasteSpecial method..failed)

What's wrong with my code?

Or maybe anybody knows a more elegant way to export a pivot table to a plain
table without loosing the layout and formatting?

Thanks in advance -

RADO