Executar Macro na hora determinada

[acsatiro]

Boa Tarde. Gostaria da ajuda de vocês para criar um código pra executar uma macro em uma determinada hora. Estou tentando mas não está funcionando. Acho que estou comendo mosca em algum momento. Segue o código abaixo. valeu.

 

Sub enviar_email()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
      
    Dim picname As String
    Dim grafico As Chart
    Dim MyOlapp As Object, MeuItem As Object
    
    Set MyOlapp = CreateObject("Outlook.Application")
    Set MeuItem = MyOlapp.CreateItem(olMailItem)

    ActiveWorkbook.RefreshAll
    
    ActiveWorkbook.Sheets("plan1").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan1").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico1.jpg", filtername:="JPG"
    
    Worksheets("plan2").Activate
    
    ActiveWorkbook.Sheets("plan2").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan2").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico2.jpg", filtername:="JPG"
          
    Worksheets("plan3").Activate
    
    ActiveWorkbook.Sheets("plan3").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan3").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico3.jpg", filtername:="JPG"
    
    Worksheets("plan4").Activate
   
    ActiveWorkbook.Sheets("plan4").ChartObjects(1).Activate
    Set grafico = ActiveWorkbook.Sheets("plan4").ChartObjects(1).Chart
    grafico.Export Filename:="C:\temp\Grafico4.jpg", filtername:="JPG"
      
    Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
    
    Worksheets("dados").Activate
    
    
    'Faturamento Cachaça
    Range("c7").Select
    texto1 = ActiveCell
   
    'Faturamento por dia
    Range("c9").Select
    Texto2 = ActiveCell
    
    'Faturamento por Mês
    Range("c10").Select
    Texto3 = ActiveCell
    
    'Faturamento Orçado no Mês
    Range("c11").Select
    Texto4 = ActiveCell
    
    'Vendas em Litros
    Range("c12").Select
    Texto5 = ActiveCell
       
       
  
With MeuItem
    .BCC = ("index1")
    .Subject = "Faturamento Cachaça"
    
    .HTMLBody = " " & ActiveWorkbook.Sheets("DADOS").Range("C14").Value & "" & _
    "<BR><BR>" & _
    "<b>" & texto1 & "</b>" & "<br>" & "<br>" & _
    Texto2 & "<br>" & _
    Texto3 & "<br>" & _
    Texto4 & "<br>" & _
    Texto5 & "<br>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico1.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico2.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico3.jpg'>" & _
    "<BR><BR>" & _
    "<img src='C:\temp\Grafico4.jpg'>" & _
    "<BR><BR>" & _
    "<i>" & "E-mail gerado automaticamente - Favor não responder." & "</i>"
      
    .Display
          
    .send
           
    
End With

    
    ActiveWorkbook.Save
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    
    OnTime1

End Sub
Public Sub OnTime1()
Call Application.OnTime(TimeValue("12:00:00"), "enviar_email")

End Sub