VBA Excel Ошибка Ошибка времени выполнения 53-файл не найден

Question

этот код, который раньше работал идеально, имеет ошибку времени 53, файл не найден. Не уверен, что не так

 Sub printxxx()
' Print_quote XXX Macro

ActiveSheet.PageSetup.Orientation = xlLandscape
Worksheets("Quote").PageSetup.PrintArea = "$H$6:$Z$133"
 strFile = ThisWorkbook.Path & "\" & strFile                           
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.Name & " XXXQuote ", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True                      
ActiveSheet.PageSetup.Orientation = xlPortrait                                                     
End Sub