VBA-Export to CSV with File name and a referenced date

[BrookssXX]

Hello,
I am trying to create VBA to export a loaded power query sheet to CSV. When I add the date section I receive an error message. The portion in red is throwing me off today. Suggestions please

Sub Export()

Dim MyFileName As String
Dim CurrentWB As Workbook, TempWB As Workbook

Set CurrentWB = ActiveWorkbook
ActiveWorkbook.ActiveSheet.UsedRange.Copy

Set TempWB = Application.Workbooks.Add(1)
With TempWB.Sheets(1).Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With

'Dim Change below to "- 4" to become compatible with .xls files

MyFileName = CurrentWB.Path & "\" & "CJ74+CJI5 Export_CHANGE DATE" & Format(Sheets("Path-Dates").Range("CuteOffDate").Value, "ddmmmyy") & ".csv"

Application.DisplayAlerts = False
TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
TempWB.Close SaveChanges:=False
Application.DisplayAlerts = True


End Sub

 

[DanteAmor]

The reference to the workbook was missing:

MyFileName = CurrentWB.Path & "\" & "CJ74+CJI5 Export_CHANGE DATE" & Format(CurrentWB.Sheets("Path-Dates").Range("CuteOffDate").Value, "ddmmmyy") & ".csv"

 

[BrookssXX]

The reference to the workbook was missing:

MyFileName = CurrentWB.Path & "\" & "CJ74+CJI5 Export_CHANGE DATE" & Format(CurrentWB.Sheets("Path-Dates").Range("CuteOffDate").Value, "ddmmmyy") & ".csv"

Thank you very much!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.