Сумма_2 = 
    if(
        HASONEVALUE(spr_Mapping[Подкатегория])
          &&VALUES(spr_Mapping[Подкатегория])="Итого 01-19";
        CALCULATE([Сумма];ALLSELECTED(spr_Mapping))-
          CALCULATE([Сумма];ALLSELECTED(spr_Mapping);spr_Mapping[Подкатегория]="СабКат-20")-
          CALCULATE([Сумма];ALLSELECTED(spr_Mapping);spr_Mapping[Подкатегория]="СабКат-21")-  
          CALCULATE([Сумма];ALLSELECTED(spr_Mapping);spr_Mapping[Подкатегория]="СабКат-22");
        IF(
            HASONEVALUE(spr_Mapping[Подкатегория])
              &&VALUES(spr_Mapping[Подкатегория])="Итого 01-20";
            CALCULATE([Сумма];ALLSELECTED(spr_Mapping))-
              CALCULATE([Сумма];ALLSELECTED(spr_Mapping);spr_Mapping[Подкатегория]="СабКат-21")-  
              CALCULATE([Сумма];ALLSELECTED(spr_Mapping);spr_Mapping[Подкатегория]="СабКат-22");
            if(
                HASONEVALUE(spr_Mapping[Подкатегория])
                  &&VALUES(spr_Mapping[Подкатегория])="Итого 01-22";
                CALCULATE([Сумма];ALLSELECTED(spr_Mapping));
                [Сумма]
            )
        )
    )

СуммаФормат = if(ISBLANK([Сумма]);"- ";if([Сумма]<0;SUBSTITUTE(Format([Сумма];"#,##0;(#,##0)");",";" ");if([Сумма]>0;SUBSTITUTE(Format([Сумма];"#,##0;(#,##0)");",";" ")&" ")))

Option Explicit

Public Function Day_Correct(Day As String) As Boolean
Dim i As Byte
Dim dictDays
Day_Correct = True

Set dictDays = CreateObject("Scripting.Dictionary")
dictDays.Add "M", 0
dictDays.Add "T", 0
dictDays.Add "W", 0
dictDays.Add "R", 0
dictDays.Add "F", 0
dictDays.Add "S", 0
dictDays.Add "U", 0

For i = 1 To Len(Day)
    If Not dictDays.Exists(Mid(Day, i, 1)) Then
       Day_Correct = False
       Exit For
    End If
Next i

End Function

#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As LongPtr, ByVal dwFlags As LongPtr, ByVal lpMultiByteStr As String, ByVal cchMultiByte As LongPtr, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr) As LongPtr
        Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As LongPtr, ByVal dwFlags As LongPtr, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As LongPtr, ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr
        Private Declare PtrSafe Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
        Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
        Private Declare PtrSafe Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
    #End If
#Else
    Private Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
    Private Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
    Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
#End If



    #If VBA7 Then
        #If Win64 Then
           Dim nRet As LongPtr
        #Else
           Dim nRet As Long
        #End If
    #Else
           Dim nRet As Long
    #End If

   ThisWorkbook.RefreshAll
   'DoEvents:
   'Application.Wait Now + TimeValue("00:00:20")
   MsgBox "Подождите 20 секунд по нажатия OK" & Chr(13) & "После этого нажмите /Выгрузить продажи/", vbOKOnly

'Option Base 1
Option Explicit

Sub MultiHup()
Dim MyWorkBook As String
Dim Files As Variant
Dim WB As Variant

'Workbooks.Application.DisplayAlerts = False
MyWorkBook = ThisWorkbook.Name
Sheets("Z-Cal").Activate
Files = Application.GetOpenFilename("*.xls, *.xlsx", , "Выбор файлов", MultiSelect:=True)

For Each WB In Files
Workbooks.Open (WB)
Next WB

End Sub