mit welchem Makro kann ich bei allen Tabellenblättern, die mit 1 enden um diesen Buchstaben kürzen.
Beispiele: Aus A1 wird A, aus B241 wird B24 usw.
Vielen Dank für Eure Unterstützung.
mfg
Fritz
Sub Test()
Dim oSh As Worksheet
For Each oSh In Worksheets
If Right(oSh.Name, 1) = "1" Then
oSh.Name = Left(oSh.Name, Len(oSh.Name) - 1)
End If
Next oSh
End Sub
Gruß