Bạn thay cái chổ ActiveWorkbook.SaveAs...
thành
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= FName & "\" & ArrData(i,1) & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
thử nhé
good luck!