Option Explicit
Public Sub FormatWorksheets()
Dim wks As Excel.Worksheet
For Each wks In ThisWorkbook.Worksheets
Call HandleWorksheet(wks)
Next
End Sub
Private Sub HandleWorksheet(Worksheet As Excel.Worksheet)
If Worksheet.Name = "Info" Then
Exit Sub
End If
Call DeleteRows(Worksheet)
Call ConvertToSmartTable(Worksheet.Range("$A$1:$E$39"), "Tabelle" & Worksheet.Index)
End Sub
Private Sub ConvertToSmartTable(Range As Excel.Range, Name As String)
Dim obj As Excel.ListObject
Set obj = Range.Worksheet.ListObjects.Add(xlSrcRange, Range, , xlYes)
obj.Name = Name
End Sub
Private Sub DeleteRows(Worksheet As Excel.Worksheet)
Call Worksheet.Rows("1:17").Delete(xlShiftUp)
End Sub