Sub ActPremiyFinal(ByVal Control As IRibbonControl)
'
'
Application.ScreenUpdating = False
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
Dim aFile As File, fso As New FileSystemObject, wkb As Workbook
ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path) ' запрашиваем имя папки
If ПутьКПапке = "" Then Exit Sub ' выход, если пользователь отказался от выбора папки
For Each aFile In fso.getfolder(ПутьКПапке).Files
DisplayAlerts = False
If fso.GetExtensionName(aFile.Name) Like "xls*" Then
Set wkb = Workbooks.Open(aFile.Path)
UpdateLinks = 0
'****************************************************************************************
Application.ScreenUpdating = False
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:O").Select
Selection.Delete Shift:=xlToLeft
'*****************************************************************************************
wkb.Close SaveChanges:=True
Set wkb = Nothing
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
'заканчиваем
End Sub

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
Optional ByVal InitialPath As String = "W:\Журавлёва\") As String
' функция выводит диалоговое окно выбора папки с заголовком Title,
' начиная обзор диска с папки InitialPath
' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
Dim PS As String: PS = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
.ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
If .Show <> -1 Then Exit Function
GetFolderPath = .SelectedItems(1)
If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
End With
End Function