For Each loop for data labels in a pivot table

    TableName = "TestTable"
    ActiveSheet.PivotTables(TableName).PivotSelect "Alpha", xlDataAndLabel + xlFirstRow, True
    With Selection
        .Interior.Color = RGB(149, 179, 215)
    End With
    ActiveSheet.PivotTables(TableName).PivotSelect "Beta", xlDataAndLabel + xlFirstRow, True
    With Selection
        .Interior.Color = RGB(149, 179, 215)
    End With
    ActiveSheet.PivotTables(TableName).PivotSelect "Gamma", xlDataAndLabel + xlFirstRow, True
    With Selection
        .Interior.Color = RGB(149, 179, 215)
    End With
    ActiveSheet.PivotTables(TableName).PivotSelect "Delta", xlDataAndLabel + xlFirstRow, True
    With Selection
        .Interior.Color = RGB(149, 179, 215)
    End With

This is the present manner that I am having to cycle through all the entries in my pivot table. Unfortunately, planning ahead, I forsee that there will be more entries than just Alpha, Beta, Gamma, and Delta, and those may potentially be absent.

Thus, I am trying to find out if there is some way to cycle through ALL entries with a For...Each loop to cycle through all pivot labels, regardless if they were listed before.

Any help would be appreciated, including a manner in which I can re-write the code above to remove the "Selection" part, because that's just being annoying with screen flashes.

I haven't tested the formatting you're applying, but could you not create a pivot table style?

That is not what I was asking. Applying the formatting is easily done.

I need to know how to cycle through all the pivot labels to apply formatting (any formatting) to each.

...

Or are you saying that if I create a pivot table style it will automatically apply the formatting to the labels for me? I was unaware if that is the case. I will experiment.

EDIT:
I can get the first two sets of labels to color properly, but the third seems to be locked so I can't change the text color. I can change the background color, but the font needs to be white due to the dark background. That part of the code doesn't seem to do anything, regardless if I do it manually or attempt to do it through VBA.

    ActiveWorkbook.TableStyles("PivotStyleMedium2").Duplicate ("SalaryTab1A")
    With ActiveWorkbook.TableStyles("SalaryTab1A")
        .ShowAsAvailablePivotTableStyle = True
        .ShowAsAvailableTableStyle = False
        .ShowAsAvailableSlicerStyle = False
    End With
    With ActiveWorkbook.TableStyles("SalaryTab1A").TableStyleElements(xlRowSubheading3).Interior
        .Color = 9592886
        .TintAndShade = 0
    End With

' This Part Doesn't change the font color _on the screen_
    With ActiveWorkbook.TableStyles("SalaryTab1A").TableStyleElements(xlRowSubheading3).Font
        .ThemeColor = 1
        .TintAndShade = 0
    End With

    ActiveSheet.PivotTables("StatewideSalaryAnalysis").TableStyle2 = "SalaryTab1A"