Dim glIsFolder As Boolean

Sub ren_files()
    
    Dim cSuffix As String
    cSuffix = "___xxx_0_0"
    
    Dim oFD As FileDialog
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD
        .AllowMultiSelect = True
        .Title = "Выбрать файлы для переименования"
        .Filters.Clear
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1
        If Not glIsFolder Then
            .InitialFileName = ThisWorkbook.Path & "\"
        End If
        .InitialView = msoFileDialogViewDetails
    End With
        
    If oFD.Show = 0 Then Exit Sub
    glIsFolder = True
    
    'цикл по коллекции выбранных в диалоге файлов
    Dim x, cX, p
    For Each x In oFD.SelectedItems
        p = InStr(1, UCase(x), UCase(cSuffix & "."))
        If p > 0 Then
            cX = Replace(x, cSuffix & ".", ".", 1, 1)
            Name x As cX
        End If
    Next
    
    If p > 0 Then
        MsgBox "Файлы переименованы"
    End If
    
End Sub