Try this gaitkeeper

Sub test()
On Error Resume Next
Set ac = GetObject(, "Access.Application")
If ac Is Nothing Then
Set ac = GetObject("", "Access.Application")
ac.OpenCurrentDatabase "C:\My Documents\db1_2K.mdb"
ac.UserControl = True
End If
AppActivate "Microsoft Access"
End Sub

Sub test2()
On Error Resume Next
Set xl = GetObject(, "Excel.Application")
If xl Is Nothing Then
Set xl = GetObject("", "Excel.Application")
xl.Workbooks.Open "c:\Data\book1.xls"
xl.UserControl = True
xl.Visible = True
End If
AppActivate "Microsoft Excel"
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"gaitkeeper" <gaitkeeper@discussions.microsoft.com> wrote in message news:53552699-EAFC-41B1-B326-D148FDF06A83@microsoft.com...
>I need a Microsoft Excel macro that will open an existing Microsoft Access
> database file. I have written a macro that lets me open a new Access file,
> but can't open an existing file. Please Help.
> P.S. It would be nice if I could run the macro that exists in Access through
> excel as well!