Ich möchte in meiner Riesendatei (40 Blätter, zZ.4,5 MB)
alle Blätter die den Namen "Spieler 1"bis "Spieler 36" haben
umbenennen.
Der neue Name des Blattes steht in jedem Blatt in Zelle Z47.
Wie spreche ich die Blätter an?
Mein erster (gescheiterter) Versuch begann mit:
For Sh = 1 To Sheets.Count
If Left(Sheets(Sh).Name, 8) = "Spieler " Then
Sheets(Sh).Name = [E9].Value
End If
Next Sh
Könnt Ihr mir bitte weiterhelfen.
Gruß
AndréL.