Try this:

Sub AccessTest1()
Dim AccApp As Object
Set AccApp = CreateObject("Access.Application")
' Just to show you that it's working
AccApp.Visible = True
AccApp.OpenCurrentDatabase ("C:\2008MRD.mdb")
AccApp.DoCmd.RunMacro "Macro2"
AccApp.Quit
End Sub


--
Malik


"Bob" wrote:

I've got the following code that I would like to use to open an Access Macro
from excel however I am getting a compile error -"User defined type not
defined":

Sub AccessTest1()
Dim AccApp As Access.Application
Set AccApp = CreateObject("Access.Application")
Set AccApp.OpenCurrentDatabase ("C:\2008MRD.mdb")=
AccApp.DoCmd.RunMacro "Macro2"
AccApp.Quit
End Sub

Any suggestions as to what I should add/change?

Thanks.
--

Bob