Hi all, so I have a macro that will generate a pdf and attach it to an email via Outlook. The problem is this formula can only handle one sheet at a time, I'd like it to do multiple sheets and have a compiled pdf file that gets sent in the email message.

Here is the formula:
[SIZE=1]Sub print_rfr_aecoe()
'
' print_rfr_aecoe Macro
'

Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String
Dim OutlApp As Object


Title = Range("F5") & " - " & Range("F4") & " : RFR Form, AECOE Portion"


' Define PDF filename
PdfFile = ActiveWorkbook.FullName
i = InStrRev(PdfFile, ".")
If i > 1 Then PdfFile = Left(PdfFile, i - 1)
PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"


' Export activesheet as PDF
With Sheet42
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

' Use already open Outlook if possible
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0

' Prepare e-mail with PDF attachment
With OutlApp.CreateItem(0)

' Prepare e-mail
.Subject = Title
.To = Range("G68")
.cc = Range("N80") & ";" & Range("K105") & ";" & Range("Q138")
.Body = "Please see the attached AECOE secton of the RFR form. If there are any questions please do not hesitate to contact me. The PMA will attached the enclosed form to the SIGMA project builder." & vbLf & vbLf _
& "Regards," & vbLf _
& Range("N76") & vbLf & vbLf _
& "E-mail: " & Range("Q135") & vbLf _
& "Phone: " & Range("Q136") & vbLf _
& "Fax: " & Range("Q137") & vbLf & vbLf _

.Attachments.Add PdfFile

On Error Resume Next
.Display
Application.Visible = True
If Err Then
MsgBox "E-mail was not generated", vbExclamation
Else
MsgBox "Submission ready, please see Outlook to complete", vbInformation
End If
On Error GoTo 0

End With

Kill PdfFile


If IsCreated Then OutlApp.Quit


Set OutlApp = Nothing
End Sub

Does anyone know how to modify this formula so I can automatically print additional sheets? Specifically, in my case, I'd like to include sheet43 rather than set up a whole separate marco for it.

Thanks in advance.

Bests