MS ACCESS-Running Module to open Excel

[BLUDEV]

I need help,
my brain has melted and I hope someone can assist.

I am trying to run the
following code as a function in Access 2010:

Public Function OpenFile()
Dim xl As Object

'Step 1: Start Excel, then open the target workbook.
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open ("\\MACSERV8 \Company \Customer Service\ Issues FE File\Data\AMZOrder.xlsm")

'Step 2: Make Excel visible
xl.Visible = False



'Step 3: Run the target macro
xl.Run "Data_Refresh"
xl.Run "Clear_Fields"
xl.Run "Insert_Formula"

'Step 4: Close and save the workbook, then close Excel
xl.ActiveWorkbook.Close (True)
xl.Quit

'Step 5: Memory Clean up.
Set xl = Nothing
End Function

When I try to call it out, it gives me the
following error:
"Run-time error '1004': The macro may not be available in
this workbook or all macros may be disabled"

Yet, when I run the code in
Excel, it works perfectly. Please help!

[June7]

Comment says "Make Excel visible" yet code makes it not visible.

Is the Excel code in a general module?

I put Excel code in a general module in the workbook and set Access code Visible to True. Works.

[BLUDEV]

June7, thank you so much, it did open but now another error occurred. For some reason, when it goes to open Excel, the "DataLink Properties" dialogue box opens up and stops the macro's I have tied to the Excel file from running, when I click "OK" in the dialogue boxes (see attachments) it tells me it can't find the database. It's like the Excel sheet won't run the macros with Excel open. Is there a way around this?

[BLUDEV]

June7, sorry, attachments wouldn't append.

[June7]

Don't know, the code worked with the edits.

Should append - did you zip files?