|
puedes hacer algo asi,
no lo he probado, pero no estará muy lejos de eso
Private Sub Workbook_Activate()
Application.OnTime TimeValue("08:00:00"), "RegTonHor"
Application.Wait "00:00:01"
Application.OnTime now + TimeValue("23:59:01"), "Workbook_Activate"
End Sub
|