Export To Excel Help Needed

hey there,

can someone read this coding and tell me where my error is......it is completing the export but not in the correct file path. essentially this was coding that i had that filtered through a list of qry results adn exported each set for qryresultONE, qryresultTWO, etc.

i've attempted to modify it to just export for the one and only qry result.

Code:Public Function EFCExportProjections() Const FILE_PATH As String = "\my folder location" Dim rsUpdate As Recordset Dim qdf As QueryDef Dim strSQL As String Set rsUpdate = CurrentDb.OpenRecordset("tbl_CostReport_FINAL") Call ExportRStoXLS(rsUpdate, strFullPath & Format((Date - 5), "m-d-yy") & " " & "ReportExport.xls") rsUpdate.Close Set rsUpdate = Nothing Set qdf = Nothing MsgBox "Export Complete"End FunctionPublic Function ExportRStoXLS(rsExport As Recordset, strFilePath As String) Dim xl As New Excel.Application Dim wb As New Workbook Dim ws As Worksheet Dim aryvarRows As Variant Dim intColumns As Integer, intRows As Integer Dim datReportdate As Date, datReportDateEnd As Date 'Is the recordset empty? If rsExport.RecordCount < 1 Then Exit Function End If If Dir(strFilePath) <> "" Then Kill strFilePath End If rsExport.MoveLast rsExport.MoveFirst aryvarRows = rsExport.GetRows(rsExport.RecordCount) 'load array with recordset 'Create New Workbook and select the first sheet Set wb = xl.Workbooks.Add Set ws = wb.Worksheets(1) 'insert title and worksheet name ws.Name = "RecordsetExport" 'enter column headings For intColumns = 1 To rsExport.Fields.Count ws.Cells(2, intColumns) = rsExport.Fields(intColumns - 1).Name Next intColumns 'populate data For intColumns = 1 To rsExport.Fields.Count For intRows = 1 To rsExport.RecordCount ws.Cells(intRows + 2, intColumns) = aryvarRows(intColumns - 1, intRows - 1) Next intRows Next intColumns ws.Cells.ColumnWidth = 20 ws.Cells.RowHeight = 15 wb.SaveAs (strFilePath) wb.Close xl.Quit Set xl = Nothing Set wb = Nothing Set ws = NothingEnd Function

I APPRECIATE THE HELP.
TukTuk