simora
08-03-2010, 06:11 PM
I'm trying to get this macro to run every Tuesday at 6:02 PM
This is what I have;
Private Sub Workbook_Open()
If Day(Now) = 3 Then
Application.OnTime TimeValue("18:02:00"), "MyMacro"
End If
End Sub
Sub MyMacro()
Application.OnTime TimeValue("18:02:00"), "MyMacro"
MsgBox Now()
End Sub
I tried it for different days and it still doesn't work. Any ideas why it doesn't work. Need help.
Thanks
This is what I have;
Private Sub Workbook_Open()
If Day(Now) = 3 Then
Application.OnTime TimeValue("18:02:00"), "MyMacro"
End If
End Sub
Sub MyMacro()
Application.OnTime TimeValue("18:02:00"), "MyMacro"
MsgBox Now()
End Sub
I tried it for different days and it still doesn't work. Any ideas why it doesn't work. Need help.
Thanks