avoid "error 400"

[miatch]

I'm trying to update my pivot-tables with a macro,how can I avoid error400? here is my code:

[VBA]Sub RefreshPivotTables()
Dim pivotTable As pivotTable
For Each pivotTable In ActiveSheet.PivotTables
pivotTable.RefreshTable
Next
End Sub[/VBA]

Can anybody help me with that?

[Bob Phillips]

I use

[vba]
Activeworkbook.Refreshall
[/vba]

[miatch]

how can I make this run in a protected workbook?

[Bob Phillips]

Unprotect it in code, run that, then protect it after.