Gruppe
Druck
Problem
Es sollen nur die Arbeitsblätter gedruckt werden, die ein Tabelle in ihrem Namen tragen.
StandardModule: Modul1
Sub PrintSheets()
Dim wks As Worksheet
For Each wks In Worksheets
If InStr(wks.Name, "Tabelle") Then
wks.PrintPreview
End If
Next wks
End Sub