Retrasar la ejecución de un evento en excel

Tengo el siguiente código

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Sheets("Inicio").Select
Sheets("Matriz_Controles").Select
Application.Run "Matriz_Controles.xlsm!Dcolumnas"
On Error Resume Next
Range("X2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("W2").Select
ActiveCell.FormulaR1C1 = "=MONTH(RC[1])"
Range("W3").Select
ActiveCell.FormulaR1C1 = "=DAY(R[-1]C[1])"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C[1]>R[2]C[1],RC[1],RC[1]-1)"
Range("V3").Select
Range("A3").Select
Application.Run "Matriz_Controles.xlsm!Pcolumnas"

Application.Wait (Now + TimeValue("00:00:10"))

Application.ScreenUpdating = False
Sheets("Reglas").Select
Application.Wait (Now + TimeValue("00:00:10"))
Range("E3").Select
ActiveCell.FormulaR1C1 = "=Matriz_Controles!R[-1]C[22]"
Range("E4").Select
'Application.Wait (Now + TimeValue("00:00:10"))
Application.ScreenUpdating = False
'Application.Wait (Now + TimeValue("00:00:10"))
Application.ScreenUpdating = False
Sheets("Correos PDF").Select
Application.Wait (Now + TimeValue("00:00:10"))
Range("B1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=DAY(R[-2]C[-5])"
Range("G4").Select
'Application.Wait (Now + TimeValue("00:00:10"))
Application.ScreenUpdating = False
Sheets("EnviarPDF").Select
Application.Wait (Now + TimeValue("00:00:10"))
Range("G3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("G4").Select
ActiveCell.FormulaR1C1 = "=DAY(R[-1]C)"
Range("G5").Select
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = False
Sheets("Inicio").Select
Range("I10").Select
ActiveCell.FormulaR1C1 = "=+Matriz!R[-8]C[90]"
Range("I11").Select
Range("U1").Value = Range("U1").Value + 1
Range("A1").Select
MsgBox "Bienvenido a Dasboard Contabilidad e impuestos"
MsgBox "Esta es una herramienta que podras usar para evaluar el nivel de cumplimiento de la Dirección en la ejecución de los controles asignados"

Application.ScreenUpdating = True
End Sub

Cuando va a cada hoja, ejemplo reglas, pdf... Allí hay algunos eventos los cuales necesito que se ejecuten... Pero cada que abro el libro ocurre que alguno de los eventos no se ejecuta... Entonces quiero saber si existe un código para retrasar el evento Workbook_Open() unos segundos y luego que continué su ejecución..

Añade tu respuesta

Haz clic para o