السلام عليكم
 
	يرجى المساعدة في تعديل  حفظ ملف الpdf أريد أن يشمل المسار على انشاء مجلد باسم خلية معينة 
 
	أي يتم أثناء الحفظ انشاء مجلد باسم محتوى احدى الخلايا 
 
	وجزاكم الله كل خير
 
Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
    Sheets(Array("Report")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\USP41 - NF36\" _
& "\" & Range("c8").Value, _
xlQualityStandard
Worksheets("Report").Select
Application.ScreenUpdating = True
End Sub
	على سبيل المثال ينشئ مجلد باسم محتو الخلية C9
 
Sub Export_PDF_in_OneAll()
Application.ScreenUpdating = False
    Sheets(Array("Report")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\USP41 - NF36\ Range("C9").Value" _
& "\" & Range("c8").Value, _
xlQualityStandard
Worksheets("Report").Select
Application.ScreenUpdating = True
End Sub