PivotCellType seems broken, but you could try this.

A cell’s pivotfield is the field it contains the subtotal for. If it’s a subtotal, though, it is not part of the pivot field’s data range. So a cell (“pvtCell”) is part of the subtotal range of a pivot table (“pt”) if

Intersect(pvtCell, pt.PivotFields(pvtCell.PivotCell.PivotField.Name).DataRange)

is empty.

I am using Excel 2007 and I am looking for a way of checking if a cell is part of a pivot table subtotal line, so that I can then do something else. I am using the standard pivot table selection so there are bold lines where the subtotals are, but no actual word ‘total’ like there is if you switch it to the classic view.

Do you know of anyway in which this can be done?

I have tried using:

i = Range(“A5″).PivotCell.PivotCellType

but it doesn’t pick up anything different on a subtotal line to a normal line.

Any help would be greatly recieved.

Thanks for the great tutorial, it has definitely helped with what I am trying to do. That said I am wondering if it was possible, using this or a similar macro to highlight based on the category name, rather then the value?

For example, If I was looking to highlight the row based on the Value of BB rather then the value of the BB:a>7 Would I be able to do it?

I’ve tried modifying your script with the lines as a test

For Each c In .PivotFields(“Category 2″).DataRange.Cells
If c.Value >= BB Then

but get a Debug error 438, “Object doesn’t support this property or method”
Am I calling the wrong object in this case?

I’m sorry if this is an obvious answer, as I’m still very new to VBA.

Using Referencing Pivot Table Ranges in VBA to find the range with the month, you’ll need a loop something like this (warning: untested):

For Each cMonth in rMonths.Cells
  Select Case cMonth.Value
    Case "Jan"
      iColor = RGB(0,0,255)
    Case "Feb"
      iColor = RGB(255,255,0)
    Cast "etc."
      iColor = RGB(blah,blah,blah)
  End Select
  With Intersect(cMonth.EntireRow, .TableRange1)
    .Interior.Color = iColor
  End With
Next