ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:..\....\" & ActiveSheet.Range("b5") & "_" & ActiveSheet.Range("f7") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True, _
from:=1, _
to:=1