|
Warum so umständlich? Du kannst die Tabellen auch über ihre Position ansprechen. Im einfachsten Fall also z.B. so:
With Range("A5:A10")
For i = 1 To .Cells.Count
If i > Sheets.Count Then Worksheets.Add After:=Sheets(Sheets.Count)
Sheets(i).Name = .Cells(i).Value
Next i
End With
Gruß Mr. K.
|