Hello,

You could use the following to modify the string format

With ActiveSheet.PivotTables("PivotTable1").PivotFields ( _
"[Date].[Calendar].[Calendar Year]")

PivotItems().Visible = "$#,##0.00"
End With

As for the coler expression, you need to modify the cell format.

Sincerely,

Wei Lu
Microsoft Online Community Support

==================================================

When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.

==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.