Kopfzeilen defenieren aus Sheets

Sub drucke_Mappe_3U()
Select Case ActiveSheet.Name
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"    ' Tabellennamen  _
anpassen"
Cells.EntireRow.Hidden = False
Rows("5:30").Select
Selection.EntireRow.Hidden = True
Rows("32:52").Select
Selection.RowHeight = 35
ActiveSheet.PageSetup.PrintArea = "A32:Aj52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Case Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   'Drucke den Bereich
End Select
Rows("32:52").Select
Selection.RowHeight = 15
Cells.EntireRow.Hidden = False
Range("A3").Select
End Sub