Mac excel için makro yenileme

[rdeniro]

merhabalar,

Mac bilgisayardaki excel'de

aşağıdaki macronun her 60 saniyede bir yeniden çalışmasını istiyorum. Yardımcı olur musunuz.
---------
Sub yenileme60()
'
' yenileme60 Makro
'

'
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

 

[Ouzz_z]

Public Sub yenileme60()
    On Error Resume Next ' Hata olursa makro durmasın

    ' Sorguları yenile
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "2" Or ws.Name = "3" Then
            ws.Activate
            Selection.QueryTable.Refresh BackgroundQuery:=False
        End If
    Next ws

    ' 60 saniye sonra yeniden çalıştır
    Application.OnTime Now + TimeValue("00:01:00"), "yenileme60"
End Sub