Hello
I have 2 sheets, "Consolidated" and "Centre", the centre sheet creates 3 different reports based on cell value of D1 ( a possible 3 reports)
What I want is to have all 4 reports in one pdf.
I currently use the following code (which creates 4 individual reports).
Code
Sub Save()
Dim SvPath
SvPath = "C:\Users\Owner\Dropbox\Accounts Miqlat\Reports\"
Dim Ctr
Dim Mth
Mth = Sheets("Centre").Range("I1")
Sheets("Centre").Activate
Dim c As Range
Dim i As Long
Dim inputrg As Range
Ctr = Sheets("Centre").Range("D1")
Set inputrg = [Centre] 'Evaluate(Ctr.Validation.Formula1)
i = 1
For Each c In inputrg
Ctr = c.Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SvPath & Ctr & " - " & Mth & ".pdf"
i = i + 1
Next c
Sheets("Consolidated").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SvPath & "Consolidated" & " - " & Mth & ".pdf"
End SubIs there a way to do this please? Ultimately the report would just be Filename:=Mth & ".pdf"
Thanks