Access to Excel

I have the following code that is intended to take the information from a MS Access Table to a preformatted Excel spreadsheet on my desktop called Export.xls that has some protections in various fields. When I try running it I get the debugging error message "Compile Error: User-defined type not defined"

Any suggestions how to resolve this?

Private Sub Command11_Click()
Dim objXL As Excel.Application
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim db As Database
Dim rs As Recordset
Dim intLastCol As Integer
Const conMAX_ROWS = 20000
Const conSHT_NAME = "myImport"
Const conWKB_NAME = "C:\users\joe\desktop\Export.xls"
  Set db = CurrentDb
  Set objXL = New Excel.Application
  Set rs = db.OpenRecordset("myImport", dbOpenSnapshot)
  With objXL
    .Visible = True
    Set objWkb = .Workbooks.Open(conWKB_NAME)
    'Give book a new name
    'objWkb.SaveAs "NewName.xlsx"
    Set objSht = objWkb.Worksheets(conSHT_NAME)

    With objSht
      .Range("A2").CopyFromRecordset rs
    End With
  End With
  Set objSht = Nothing
  Set objWkb = Nothing
  Set objXL = Nothing
  Set rs = Nothing
  Set db = Nothing


End Sub

Select allOpen in new window