Parent.Range("A1:F" & lr).ExportAsFixedFormat xlTypePDF, Path & Data(i, 5) & "-" & Format(Now(), "dd-mm-yyyy hhmmAMPM"), xlQualityStandard, IncludeDocProperties
Thank you so much..