schön das du das schon hast, aber ich sehe nichts Hier ein Versuch ungetestet
Sub SaveAllWorksheetsAsPDF()
Dim ws As Worksheet
Dim sName As String
Dim path As String
path = ThisWorkbook.path & "\"
For Each ws In Worksheets
If ws.Range("C8:AG27").CountLarge > WorksheetFunction.CountBlank(ws.Range("C8:AG27")) Then
sName = Format(ws.Range("A3"), "MM_YY") & " " & ws.Name
ws.ExportAsFixedFormat xlTypePDF, path & sName & ".pdf"
End If
Next ws
End Sub
|