Даже инста-кот @montythesweet смог разобраться с этим макросом. И у тебя тоже получится. Вот этот макрос. Пользуйся на здоровье. Sub FormatPivotFields() Dim iArea As Range Dim iRange As Range On Error Resume Next For Each iArea In Selection.Areas For Each iRange In iArea iRange.PivotField.NumberFormat = "# ##0_ ;[Red]-# ##0\ " Next iRange Next iArea End Sub #Тарануха