The part you have in there with "CR2" should not be there. That is the RANGE argument and the helpfile even states:
Originally Posted by
Access VBA Help File
When you export to a spreadsheet, you must leave this argument blank. If you enter a range, the export will fail.
You can rename the worksheet to what you want if you want to using this code:
Code:
Dim objXL As Object
Dim xlWB As Object
DoCmd.TransferSpreadsheet acExport, , strTableName, strFileLoc & strFileName & strFileExt, True
Set objXL = CreateObject("Excel.Application")
Set xlWB = objXL.Workbooks.Open(strFileLoc & strFilename & strFileExt)
With xlWB
.Worksheets(1).Name = "CR2"
.Save
.Close
End With
objXL.Quit
Set objXL = Nothing