Mit folgendem Code nehme ich in meinem Workbook eine Mehrfachselection vor.
Was noch fehlt: Ich sollte die Mehrfachselection einer Variable zuweisen können und dann die selektierten Worksheets drucken.
Wie mache ich das?
Gruss, Peter
Sub pdf_1_Dokument()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If InStr(wks.Name, "D_3") > 0 Or InStr(wks.Name, "B_2") > 0 Or Len(wks.Name) = 1 Then
wks.Select Not flg
flg = True
End If
Next
End Sub