Sub AlleMarkiertenBltterSeparatExportieren()
	Dim objBlatt As Object
	Dim strPfadname As String

	For Each objBlatt In ActiveWindow.SelectedSheets
		strPfadname = "D:\PDF\" & objBlatt.Name & ".pdf"
		With objBlatt
			.Select
			.ExportAsFixedFormat Type:=xlTypePDF, _
				Filename:=strPfadname
		End With
	Next
End Sub
