Fehler bei Macro für mehrfaches umbenennen

Hallo,

ich habe ein kleine Makro für mehrfaches umbenennen das seit der Version 17.50 nicht mehr richtig funktioniert

Das Makro soll alle markierten/selektierten Dateien um 9 Zeichen im Dateinamen kürzen.
Seit Version 17.50 lässt er die letzen 9 Zeichen stehen und löscht die vorderen Zeichen

Muss ich das Makro jetzt ändern oder ist es ein Fehler?

Viele Grüße
Ingo

######## Makro ########

' Aktives Ordnerfenster
If Workspace.ActiveWindow.FolderWindows.IsVisible Then
Set FolderWindow =...

Fehler bei Macro für mehrfaches umbenennen