Blatt als PDF versenden

Sub Blatt versenden ()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String, wksMail As Worksheet
Sheets("Infoblattversenden").Select
Cells.Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Range("L28").Select
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("L:L").EntireColumn.AutoFit
Columns("O:O").EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 4
Range("A1").Select
Columns("P:P").Select
Selection.NumberFormat = "m/d/yyyy"
Range("A1").Select
ActiveWorkbook.SaveAs Environ("UserProfile") & "\Desktop\" & Format(Date, "YYMMDD") & "_" &   _
_
Range("C6") & "_Test123" & ".xls", FileFormat:=xlExcel8
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Range("C18")
.CC = ""
.Subject = "Test123" & Date & " " & Time
.Attachments.Add Environ("UserProfile") & "\Desktop\" & Format(Date, "YYMMDD") & "_" &  _
Range("C6") & "_Test123" & ".xls"
.Body = "Liebes Team der " & Range("C6") & ",  anbei erhalten Sie das Informationsblatt.   _
_
Viele Grüße" & Range("B3") & vbCrLf & ""
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
ActiveWorkbook.Close
Kill Environ("UserProfile") & "\Desktop\" & Format(Date, "YYMMDD") & "_" & Range("C6") & " _
_Test123" & ".xls"
End Sub