What is the syntax to run a procedure based on a timer?

Sub <procedure name>()
   'code to be run
   Application.OnTime Now + TimeValue("00:00:00"), "<procedure name>"
End Sub
'example
Sub runsEveryTenSeconds()
    If formClock.Visible = False Then Exit Sub

    Call updateClock
    Application.OnTime Now + TimeValue("00:00:10"), "runsEveryTenSeconds"
End Sub

 

Advertisements

What is the syntax to auto-move days on a calendar?

<calendar name>.Value = <calendar name>.Value <+/-> <number of days you want to move forward or back>
‘examples
myCalendar.Value = myCalendar.Value + 1 'move forward one day
monthview.Value = monthView.Value -5 'move backward 5 days