PDF NOT SAVING RUN TIMEERROR COMING, DETAILS AS PER BELOW CODE, PLS SEE ERROR IN CODE



Sub SaveInvoiceAsPDFAndClear()
Dim NewFN As Variant
NewFN = "I:\22-23 DETAILS\INVOICE" & Range("D8").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
[/COLOR]
End Sub