Back up til excel

Jeg har følgende kommando hvor jeg kan gemme en back up i excel - mit problem er at denne kode også smider en back up tabel - Jeg vil egentlig blot nøjes med at den gemmer back upen i excel!!

Private Sub lblCmdBackup_Click()
    Dim strFilter As String
    Dim strSaveFileName As String
   
    BackupTabel "tblEmner"
    BackupTabel "tblNoter"
   
    strFilter = ahtAddFilterItem(strFilter, "Excel filer (*.xls)", "*.xls")
    strSaveFileName = _
        ahtCommonFileOpenSave( _
            OpenFile:=False, _
            Filter:=strFilter, _
            DialogTitle:="Hvor skal backupen ligge?", _
            flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
   
    If Len(strSaveFileName) > 0 Then
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tblEmnerBackup", strSaveFileName, True
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tblNoterBackup", strSaveFileName, True
        MsgBox "Backup er nu eksporteret til: " & vbCrLf & _
            strSaveFileName, vbInformation
    End If
End Sub