Rowfield, Pagefield & Columnfield

Jeg har lavet nedenstående makro, men når ”nøgletal” ligger som andet end pagefield går den ned. Hvorfor?? Kan man lave den så den virker ligegyldigt hvor i pivottabellen ”nøgletal” ligger ??

Sub Validering()

valg = ActiveSheet.PivotTables("PivotTable1").PivotFields("Nøgletal").CurrentPage

ActiveSheet.PivotTables("PivotTable1").PivotFields("Nøgletal").CurrentPage = "Penetration i %"

Selection.CurrentRegion.Select
    With Selection.Font
        .ColorIndex = 1
    End With

Dim omrade As Range
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataOnly
    For Each omrade In Selection
        If omrade.Value <= 2 Then omrade.Font.ColorIndex = 3
    Next

Cells(1, 1).Select

ActiveSheet.PivotTables("PivotTable1").PivotFields("Nøgletal").CurrentPage = valg

End Sub