Sub PrUnpr()
    Me.Protect "1", userinterfaceonly:=True
    Me.Range("A1").Value = Not Me.Range("A1").Value
End Sub

arr(i, 1) = DelTrash(arr(i, 1) & "")

Function DelTrash(s$)
    Dim aToFind, li&, res$
    aToFind = Array(Chr(34), " ", ".", ",", "'", "\") 'Chr(34) = кавычка
    res = s
    For li = LBound(aToFind) To UBound(aToFind)
        res = Replace(res, aToFind(li), "")
    Next
    DelTrash = res
End Function

Option Explicit
Public aPubAr

Sub CheckTypeArr()
    Dim caa As New clsArr
    Debug.Print aPubAr(0)
End Sub

Option Explicit

Private Sub Class_Initialize()
    aPubAr = Array(1, 2, "three")
End Sub

Private Sub Class_Terminate()
    aPubAr = Empty
End Sub

Sub GoData()

Dim NameFile As String

NameFile = """ & Mid(avFiles, i + 1) & """

NameFile = Mid(avFiles, i + 1)

Set wb = SheetName

Set wb = Application.Workbooks(SheetName)

Function CheckListSub(SheetName As String) As String
Dim wb As Workbook
Set wb = SheetName

Function CheckListSub(wb As Workbook) As String

Workbooks.Open Filename:=avFiles 
Set Database = ActiveWorkbook
CheckList = CheckListSub(Database)

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица3"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Название", type text}, {"Имя", type text}}),
    #"Сгруппированные строки" = Table.Group(#"Измененный тип", {"Название"}, {{"Количество", each _, type table [Название=text, Имя=text]}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Сгруппированные строки", "Пользовательская", each Text.Combine([Количество][Имя],"|")),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Добавлен пользовательский объект", "Пользовательская", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Пользовательская.1", "Пользовательская.2", "Пользовательская.3", "Пользовательская.4"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Пользовательская.1", type text}, {"Пользовательская.2", type text}, {"Пользовательская.3", type text}, {"Пользовательская.4", type text}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип1",{"Количество"})
in
    #"Удаленные столбцы"

If isArray(aLinks) then
ActiveWorkbook.ChangeLink aLinks(1), Generator & "/ExpressData.xlsx", xlLinkTypeExcelLinks
end if

Dim aLinks

ActiveWorkbook.Close

Sub a()
Application.StatusBar = "Выполняется макрос zzzz1"
zzzz1 'имя макроса
Application.StatusBar = "Выполняется макрос zzzz2"
zzzz2 'имя макроса
Application.StatusBar = "Выполняется макрос zzzz3"
zzzz3 'имя макроса
Application.StatusBar = "Выполняется макрос zzzz4"
zzzz4 'имя макроса
Application.StatusBar = "Выполняется макрос zzzz5"
zzzz5 'имя макроса
Application.StatusBar = False
End Sub

=LOOKUP(2;1/(($A2='Тексты'!$B$2:$B$1000)*(2='Тексты'!$A$2:$A$1000));'Тексты'!$C$2:$C$1000)

="https://query1.finance.yahoo.com/v7/finance/download/"&[@Symbol]&"?period1="&$H$11&"&period2="&$H$12&"&interval=1d&events=history&crumb=K58cARccDnI"

If sFilePath = "" Then        'диалоговое окно выбора папки
        'подробнее: http://www.excel-vba.ru/chto-umeet-excel/dialogovoe-okno-vybora-fajlovpapki/
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show = False Then
                Exit Function
            End If
            sFilePath = .SelectedItems(1)
        End With
    End If

sFilePath = range("Таблица2").Cells(1,1).value

s = GetAtchName(sFolder & oAtch)