Excel Macro que ejecuta consulta

En el siguiente código que es ejecutado desde Excel el Access abre, pero no se ejecuta la macro existente en el acces, ¿orque? - Gracias.

Sub EjecutarAccess()

    Dim OBJETO As Object

    Set OBJETO = CreateObject("Access.Application")

    OBJETO.Visible = True

    OBJETO.OpenCurrentDatabase "D:\CorteActual.accdb", True

    CurrentDb.Execute "Macro_Proceso"

    OBJETO.Quit

    Set OBJETO = Nothing

End Sub