Keep defined colors in Pivot Chart Report

[Berry]

Dear all,

When using this code to refresh in 2 datasheets in Pivot Chart Table
for the Chart Reports.

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

the colors off my Pivot Chart Report are changing back to original
colors.
Also when I close the workbook, and open it again, the colors are
changing back...
before this I tried to use the tab "refresh when open" and tab
"preserve formatting" but this works only when the workbook open. But
this didn't worked also.

Hope someone can help me.

Cheers,
Berry