was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets()
Dim w%, x%, y%, z%
z = ThisWorkbook.Sheets("INFO").Index + 1
w = ThisWorkbook.Sheets.Count
For x = z To w
For y = x To w
If Worksheets(y).Name
Danke vorab.Charly