obnovenie_vsetkych_kontigencnych_tabuliek.vb

```VB
' Obnoviť všetky kontingenčné tabuľky v zošite
' Refresh All Pivot Tables in the Workbook
Sub RefreshAllPivotTables()
	Dim PT As PivotTable
	For Each PT In ActiveSheet.PivotTables
		PT.RefreshTable
	Next PT
End Sub

```