2 Tabllen als pdf-Anhang via Makro senden

Sub Senden_PDf()
Dim app   As Object
Dim file  As String
Dim isNew As Boolean
file = Cells(6, 1).Value & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = ActiveSheet.Range("A1")
.CC = ActiveSheet.Range("A2")
'    .BCC = ""
.Subject = "Anlage: " & file
.Body = "Sehr geehrte Damen und Herren," & vbCr _
& vbCr _
& "anbei die monatliche PDF-Umsatzmeldung." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen."
.Attachments.Add Environ("TEMP") & "\" & file
' .ReadReceiptRequested = True                  'Lesebestätigung ein / aus
.Display                                             'Email vor Versand anzeigen
End With
If isNew Then app.Quit
End Sub