Filter change dynamically

[willer.reis]

Good morning,


I'm new to the forum and also to VBA development.
Need to develop a macro to change filters (one by one) in a dynamic table according to a timer.
Developed a principle, but do not know how to continue, or carry.

Dim Alarm
Const IntervaloSegundos = '5 5 second intervals

Sub Start ()
    Alarm TimeSerial = Now + (0, 0, IntervaloSegundos)
    Application.OnTime EarliestTime: = Alarm, procedure: = "Macro1", Schedule: = True
End Sub

Sub Macro1 ()
    Call Log
    Call changeFilter ("Name", "Table1")
End Sub

Sub changeFilter (ByVal filter As String, ByVal table As String)
    The PivotTable Dim pt
    Set pt = Worksheets ("Sheet2"). PivotTables (table)
    pt.PivotFields (filter). ClearAllFilters
    pt.PivotFields (filter). CurrentPage = "Test" 'New filter set but grin. At this point I would make a loop to go through all filters.
End Sub

Help me please.
Thanks =D