How to Run an Access Query / Macro From Excel Spreadsheet?

Sub AccessTest1()
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase ("Path of your database")
A.DoCmd.RunMacro "Name of your macro"
Application.DisplayAlerts = True
End Sub