PreserveFormatting Property [Excel 2003 VBA Language Reference]
For PivotTable reports, this property is True if formatting is preserved when the report is refreshed or recalculated by operations such as pivoting, sorting, or changing page field items.
For query tables, this property is True if any formatting common to the first five rows of data are applied to new rows of data in the query table. Unused cells aren't formatted. The property is False if the last AutoFormat applied to the query table is applied to new rows of data. The default value is True (unless the query table was created in Microsoft Excel 97 and the HasAutoFormat property is True, in which case PreserveFormatting is False).
For database query tables, the default formatting setting is xlSimple.
The new AutoFormat style is applied to the query table when the table is refreshed. The AutoFormat is reset to None whenever PreserveFormatting is set to False. As a result, any AutoFormat that's set before PreserveFormatting is set to False and before the query table is refreshed doesn't take effect, and the resulting query table has no formatting applied to it.
This example preserves the formatting of the first PivotTable report on worksheet one.
Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True
This example demonstrates how setting PreserveFormatting to False causes the AutoFormat to be set to xlRangeAutoFormatNone instead of the specified xlRangeAutoFormatColor1 format.
With Workbooks(1).Worksheets(1).QueryTables(1) .Range.AutoFormat = xlRangeAutoFormatColor1 .PreserveFormatting = False .Refresh