Macro således at pivattabel ikke skal omdøbes

Kære eksperter,

Jeg har lavet nedestående macro til at lave nogle formler i en pivottabel jeg ofte trækker. Macroen kræver dog, at pivottabellen hedder "Pivottabel1", hvilke den langt fra altid gør - kan man arbejde sig rundt om dette? - enten via en anden macro som omdøber pivotabellen eller ved at rette i koden?


Sub formler_pivot()
'
    ActiveSheet.PivotTables("Pivottabel1").CalculatedFields.Add "Vol", _
        "='-AFSÆTNING-'*-1", True
    ActiveSheet.PivotTables("Pivottabel1").CalculatedFields.Add "OMS", _
        "='-OMSÆTNING-'*-1", True
    ActiveSheet.PivotTables("Pivottabel1").CalculatedFields.Add "DB", _
        "='-BOGFØRTVÆRDI-'+'-VÆRDIREGULERING-' -'-OMSÆTNING-'", True
    ActiveSheet.PivotTables("Pivottabel1").CalculatedFields.Add "DG", _
        "=(DB *100)/OMS", True
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("Vol").Orientation = _
        xlDataField
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("OMS").Orientation = _
        xlDataField
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("DB").Orientation = _
        xlDataField
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("DG").Orientation = _
        xlDataField
    Range("A5").Select
    ActiveSheet.PivotTables("Pivottabel1").DataPivotField.Orientation = xlHidden
End Sub