Label in pivot table with chr(10) export to excel dont work

[vesnabb]

labele : 'Value'&chr(10)&'EUR'

in pivot table is OK --> 2 lines

export in EXCEL with: (in excel file is only in 1 lines ??????)

sub SendToXL
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = True
set XLDoc = XLApp.Workbooks.Add
set tbl = ActiveDocument.GetSheetObject("CH46")
set XLSheet = XLDoc.Worksheets(1)
tbl.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
xlsheet.Range("A:A").WrapText = True
end sub

[vesnabb]

I attach example !

Please help !

Vesna