Miten Pivotmakro kun tiedostossa monta Pivottia

Jos tiedostossa on vain yhden pivotin makrotarve eli yksi pivot tehdään makrolla, toistot toimivat.

Mutta samassa tiedostossa on monta taulukkoa ja yhteenkin taulukkoon tulee monta pivottia.
Kaikkiin pitäisi saada makro.
Yksittäisen makron alkuvaihe:
Sheets("2014").Select
Range("B7").Select
Application.Goto Reference:="Taulukko_2014"
(taulukko_2014 on nimetty solualue)

ActiveWorkbook.Worksheets("Nimitäsmäys").PivotTables("Pivot-taulukko3"). _
PivotCache.CreatePivotTable TableDestination:="Pivot 2014 min ja hlöm!R12C1" _
, TableName:="Pivot-taulukko5", DefaultVersion:=xlPivotTableVersion10

Sitten tulee varsinaista toimintaa.....

Miten makrosta saa pois tarpeettoman viittauksen kuten "Nimitäsmäys" ja kohdan TableName:="Pivot-taulukko5" eli tuo numerointi sotkee