Sub export() DoCmd.TransferText acExportDelim, "CompanyDelimited", "tblCompany", _ "C:\Delimited.txt", True MsgBox "Company details exported" End Sub