cant run code

[scrappe7]

I have the following code. it should display a message box asking whether formatting has taken place? if it has then it should run a macro in an xls file. this occurs with amodule in access.

Sub IsFormated()
Dim Answer As Integer
Answer = MsgBox("Is the file formated ?", vbYesNo, "Format&quot
If Answer = vbYes Then

Dim appExcel As Excel.Application '''''error here'''

Set appExcel = CreateObject("Excel.Application&quot
appExcel.Visible = True
appExcel.Workbooks.Open "V:\Risk_Mgmt_Credit\Canada monitoring\MacroHolder.xls"
appExcel.Run "Module1.Format_Report"
appExcel.Workbooks("report144alll.xls&quot.Close True

End If
End Sub

the error is a user defind type not defined. what do i do?
please help

 

[macbone2]

If I understand correctly, your running this in Access. If that's the case it may be that you haven't added the necessary Reference to excel, you need to creat a reference to the Microsoft Excel type library. I am not familiar with the method for Acces, but in Excel, whilst in the VBA project macro browser, select Tools | References, then select the relevant Microsoft Excel object for the level of Excel you are using.
Hope this helps

macbone2