Code:
Option Explicit
Private lngMinutes As Long
Private intInterval As Integer
Private Sub Command1_Click()
intInterval = 2 ' Set this to the desired number of minutes
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000 ' set to one minute
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
lngMinutes = lngMinutes + 1
If lngMinutes = intInterval Then
lngMinutes = 0
Debug.Print "Timer fired at " & Time
' Put the code (or a call to the code) you want to execute here
End If
End Sub