With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "select files"
        .InitialFileName = stt.[inpath] & "*.xls*"
        .AllowMultiSelect = True    
        If .Show = False Then Exit Sub

        DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
        Application.ScreenUpdating = False
        Set outwb = Workbooks.Add(1)

        Call makebook(outwb, r, rr)

        Set FSO = CreateObject("Scripting.FileSystemObject")

        ReDim arr(1 To .SelectedItems.Count, 1 To 3)
        For Each AFile In .SelectedItems    'ïåðåáîð ôàéëîâ â ïàïêå
            i = i + 1
            arr(i, 3) = FSO.GetBaseName(AFile)
            arr(i, 1) = Format(todate(CStr(arr(i, 3))), "yyyymmdd")
            arr(i, 2) = AFile
        Next
        uSort arr, 1

        For i = 1 To UBound(arr)
            Application.StatusBar = "Open file " & arr(i, 2)
            DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
            Set wb = Workbooks.Open(Filename:=arr(i, 2), ReadOnly:=True, UpdateLinks:=False, CorruptLoad:=xlRepairFile)
            Call analiz(r, rr, CStr(arr(i, 3)), wb, outwb, dt)
            wb.Close 0
        Next

    End With

    Dim sh As Worksheet
    For Each sh In outwb.Worksheets
        sh.Activate
        sh.Range("D2").Select
        ActiveWindow.FreezePanes = True
    Next
    outwb.Sheets(1).Activate

    Dim dtstr$, lFileformat
    lFileformat = outwb.FileFormat
    dtstr = Year(dt) & "-" & Format(Month(dt), "00")
    outwb.Sheets("Mthly_").Name = "Mthly_" & dtstr
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
    outwb.SaveAs ThisWorkbook.Path & Application.PathSeparator & dtstr & "monthly report", lFileformat

    With Application: .StatusBar = False: .CutCopyMode = False: .ScreenUpdating = True: End With

End Sub

Private Sub analiz(r, rr, fff$, wb As Object, outwb As Object, dt As Date)
Dim wd As String
Dim i1&, i2&, i3&, i4&, i5&, i6&, i7&, i8&, i9&, i10&, t$
Dim a(), i&, ii&, iL&, flag As Boolean, ub&
Dim sc As Range, acol&

If IsDate(todate(fff)) Then
dt = todate(fff)
wd = Choose(Weekday(dt), "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")
End If