Executing a macro at a defined time

[celtic warrior]

I have a worksheet that is used to update daily events. I currently have a macro which is operated manually to send a copy of the worksheet to a defined mailing list.
I would like to automate this process so that the worksheet is mailed at a defined time each day.
I tried the following:

Private Sub Workbook_Open()
 
    Application.OnTime TimeValue("16:16:00"), "Mail_sheets"
 
End Sub

But it doesn't seem to work?

CW

[Leith Ross]

Hello Celtic Warrior,

If you are using a VBA macro to send the email using Outlook from Excel, you can to do this way...

'Written: October 19, 2008
'Author:  Leith Ross
'Summary: Delays sending an email until a certain Date-Time using Outlook.

Sub DelaySendingEmail()

  Dim Msg As String
  Dim olApp As Object
  Dim olEmail As Object
  Dim SendAt As String
  Dim SendTo As String
  Dim Subj As String
  
    SendTo = "LeithRoss@gmail.com"
    Subj = "Delayed Email test"
    Msg = "No message."
    SendAt = "10/19/2008 12:30am"     'Date-Time must be in this format
    
      On Error Resume Next
        Set olApp = GetObject(, "Outlook.Application")
        If Err = 429 Then
          Err.Clear
          Set olApp = CreateObject("Outlook.Application")
        End If
      On Error GoTo 0
      olApp.Session.Logon
      
      Set olEmail = olApp.CreateItem(olMailItem)
        With olEmail
          .DeferredDeliveryTime = SendAt
          .To = SendTo
          .Subject = Subj
          .Body = Msg
          .Send
        End With
            
    olApp.Session.Logoff

    Set olApp = Nothing
    Set olEmail = Nothing
    
End Sub