Sub updateCN_ofFolders()

With Application: .ScreenUpdating = False: .Calculation = xlManual: End With    '.EnableEvents = False: .DisplayAlerts = False:
shname1= "Лист1"
 shname2= "Лист2"

ArrSh = Array(shname1, shname2)
For Each sh In ArrSh
    Sheets(sh).Activate
    Sheets(sh).[C2].ListObject.QueryTable.Refresh BackgroundQuery:=False
Next sh

With Application: .ScreenUpdating = True:  .Calculation = xlAutomatic: End With

End Sub

    Formula.Firewall: Запрос   "cn_First"   (шаг   "Changed Type"  ) использовал данные   "MultipleUnclassified/Trusted"   при предыдущем вычислении, а теперь пытается использовать данные   "MultipleUnclassified/Trusted"  .   

X-Frame-Options: SAMEORIGIN, ALLOW-FROM https://commodex.co.il/, ALLOW-FROM https://openexchange.community.cmegroup.com, ALLOW-FROM https://www.kgieworld.sg
Content-Security-Policy: frame-ancestors 'self' *.quikstrike.net commodex.co.il openexchange.community.cmegroup.com www.kgieworld.sg;

Public Function ooo(S)
Static r As Object
If r Is Nothing Then Set r = CreateObject("vbscript.regexp")
    With r
        .Global = True
        .IgnoreCase = True
        .MultiLine = True
        .Pattern = "^(?:АО|ИП|ЗАО|ООО|СК|ФГУП)\s"
        'dd = .Test(S)
        If .Test(S) Then
            Set oo = .Execute(S)
            ooo = Trim(.Replace(S, "")) & " " & Trim(oo(0))
        Else: ooo = S
        End If
    End With
End Function

Public Const connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Mode=1;Data Source=$1;Extended Properties='Excel 12.0;HDR=YES';"

Sub test1()
With Sheets("tickers").Range("A9:E15, A34:E40, A59:E65, A84:E91, A109:E115, A134:E140")  'to ArrC !!
    ArrC = .Value
End With
End Sub

Sub test2()
With ThisWorkbook.Sheets("tickers")
    Set R1 = .Range("A9:E15")
    Set R2 = .Range("A34:E40")
    Set R3 = .Range("A59:E65")
    Set R4 = .Range("A84:E91")
    Set R5 = .Range("A109:E115")
    Set R6 = .Range("A134:E140")
End With
    Set RN = Union(R1, R2, R3, R4, R5, R6)  'to ArrC !!
    ArrC = RN.Value
End Sub

Private Sub Auto_Open() 
    For Each iBarName In Array("Object/Plot", "Plot Area") 
     With Application.CommandBars(iBarName) 
       .Enabled = True  ' если контекстное меню могло быть предварительно заблокировано - убрать блокировку 
        .Protection = msoBarNoProtection   'если меню могло быть защищено от  изменений 
        With .Controls.Add(Type:=msoControlButton, Temporary:=True) 
         .BeginGroup = True 
         .FaceId = 956 
         .Caption = "Экспорт диаграммы" 
         .OnAction = "ChartExport" '?????????
       End With 
     End With 
    Next 
End Sub 

Private Sub ChartExport() 
    iFileName = Application.GetSaveAsFilename( _ 
    InitialFileName:="Chart", _ 
    FileFilter:="Формат GIF (*.gif),*gif,Формат JPG (*.jpg),*jpg", _ 
    Title:="Выберите нужную папку и введите необходимое имя файла") 
    If iFileName <> False Then 
    ActiveChart.Export FileName:=iFileName, FilterName:=Right(iFileName, 3) 
    Else 
    MsgBox "Необходимо было указать местосохранение диаграммы", vbCritical, "" 
    End If 
End Sub

Sub Get_Value_From_Book1()
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: .Calculation = xlManual: End With
Set objCloseBook = GetObject(ThisWorkbook.Path & "\ALL.xlsm")            '?????????????????
With objCloseBook.Sheets("BPC")
      .Range("A1:S" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy
      Sheets("CALL").[A3].PasteSpecial xlPasteValues, Transpose:=False      
End With
With objCloseBook.Sheets("BPP")
      .Range("A1:S" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy
      Sheets("PUT").[A3].PasteSpecial xlPasteValues, Transpose:=False
      .Parent.Close False             '?????????????????
End With
With Application: .ScreenUpdating = True: .DisplayAlerts = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub

(1390*3374+1385*871+1380*469+1375*9+1370*3)+(1390*48)=TotalValue