See if this is what you are trying to accomplish using your Excel file. Replace your Save_pdf macro code with this code. Run macro on each sheet individually . Might be good idea to assign the macro a keyboard shortcut like CTRL_Q
Code:
Sub Save_pdf()
'
' Save_pdf Macro
'
'
Range("Q1").Select
Selection.Copy
Range("R1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A20").Select
Range("Q1").Select
Selection.Copy
Range("R1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R1").Select
Application.CutCopyMode = False
Range("R2").Select
ActiveCell.FormulaR1C1 = _
Range("R1").Value
Range("A23").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("R1").Value
_
'Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Bookmarks