get value of cell for pivot table

[Sir Babydum GBE]

I know I can't use a named cell in a pivot table calculated field.

But how do I get a macro to refresh a pivot table, and while it's at it, update the calculated field called "target" usiing the value in a cell named TG?

So where the code says:
[vba]ActiveSheet.PivotTables("PivotTable3").CalculatedFields("Target"). _
StandardFormula = "=12.17%"[/vba]

I want the code to change the 12.17% to whatever value is in the cell named TG.

Thanks

[rory]

Something like:
[VBA]

With ActiveSheet.PivotTables("PivotTable3")
.CalculatedFields("Target").StandardFormula = "=" & Range("TG").Value
.RefreshTable
End With

[/VBA]

[Sir Babydum GBE]

Something like:
[vba]

With ActiveSheet.PivotTables("PivotTable3")
.CalculatedFields("Target").StandardFormula = "=" & Range("TG").Value
.RefreshTable
End With

[/vba]

Thanks Rory - fab!