Help creating macro that runs another macro every 15 minutes, starting at 3:30 PM, and ending at 10:00 PM

[smcmahon83]

Hello,

I am struggling to create a macro that will automatically run another macro (code below), every 15 minutes, starting at 3:30 PM, ending at 10:00 PM only when the workbook is open.
Can anyone help me create this 'timer' macro that I need? Thanks a million in advance.

The macro below simply copies live data from one sheet, and pastes it transposed into a database sheet in the next available row.

-------------------------------

Sub Paster()
'
' Paster Macro
'
Sheets("TOS").Select
Range("Q1:Q21").Select
Selection.Copy
Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Paste:=xlPasteFormats, Transpose:=True
ActiveWindow.SmallScroll Down:=-15
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

 

[offthelip]

try this:

Sub nextcall()
timenow = Time()
 If timenow < TimeValue("15:30:00") Then
 Application.OnTime TimeValue("15:30:00"), "nextcall"
 Exit Sub
Else
 If timenow < TimeValue("22:00:00") Then
   Application.OnTime Now + TimeValue("0:15:00"), "nextcall"
 End If
End If
' call your sub here
call paster
End Sub