тайминг на макрос в excel

[Евгений_474]

Доброго времени суток

Подскажите по таймингу макроса, а именно как задать чего повторение каждую 1 минуту

Код: (vb)

Sub Макрос1()
'
' Макрос1 Макрос
' Сочетание клавиш: Ctrl+q
    Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
End Sub

Спасибо !!

[alex77755]

Код: (vb)

Sub start_ontime()
    Макрос1
    Application.OnTime Now + TimeSerial(0, 1, 0), "start_ontime"
    Debug.Print Time
End Sub


Sub Макрос1()
'
' Макрос1 Макрос
' Сочетание клавиш: Ctrl+q
    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
End Sub