Zweiter timer ins Makro

Sub start_timer()
Application.OnTime Now + TimeValue("00:00:05"), "send_order"
End Sub

Sub send_order()
If Range("P2") = 1 Then
FileCopy "E:\sierrachart_handelssystem\order_text\long.txt", "e:\programme\tsimplus\auto.tsm"
End If
If Range("Q2") = 1 Then
FileCopy "E:\sierrachart_handelssystem\order_text\short.txt",  e:\programme\tsimplus\auto.tsm"
End If
start_timer
End Sub