Exportiert das aktive Arbeitsblatt als PDF neben die Arbeitsmappe.
VBA
Sub BlattAlsPDF()
Dim ziel As String
ziel = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ziel
End Sub
Hinweis: Vorher sicherstellen, dass die Arbeitsmappe gespeichert wurde.