Falls ja wie wäre es zum Beispiel möglich die letzten 4 Ziffern des Tabellenblattnamens auszulesen?
Public Sub test()
Dim strName As String
strName = Right(Tabelle1.Name, 4)
MsgBox strName
End Sub
Gruß Werner=RECHTS( ZELLE("dateiname") ; 4 )
Viel Erfolg