VBA to copy pivot table values and formatting

Hello,
I created macro to copy pivot tables from 3 sheets - just values and formatting, but it doesn't work properly - the pivot is green, but in "Copy file" it's grey and also sheets name aren't good (I need to keep the original name).
Thanks for Advice

Sub ExportToXLSX()
Sheets(Array("XYZ", "ABC", "DEF")).Select
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:="d:\Users\atothova\Desktop\Copy.xlsx"
ActiveWorkbook.Close
End Sub