Umbennung eines Tabellenblattes

Hallo ,könnt Ihr mir helfen?
ich suche für Excel ein Makro das mir den Tabellenblattname aus
den ersten 10 Stellen des des Dateinamens umbennet.

Vielen Dank für euere Hilfe

Meinst Du so?

ActiveSheet.Name = Left(ActiveWorkbook.Name, 10)

Martin

Danke