Function F_FindCells(WSheet As Worksheet, FindText As String) As Range
' Ф-ция возвращает ячейку, содержащую заданное слово
    
    ' WSeet - лист на котором ищем
    ' FindText - искомый текст
    
    ' Ячейка содержащая (то что мы ищем) FindText
    Set F_FindCells = WSheet.UsedRange.Find(What:=FindText, LookIn:=xlValues, LookAt:=xlWhole)
End Function

Function F_ColName(WSheet As Worksheet, ByVal iColMax As Integer, iColMin As Integer)
' Ф-ция возвращает массив с буквенными названиями столбцов, расчитанными по их номерам
    
    ' WSheet - лист для которого производим расчет. Можно было использовать текущий лист, но решил строго его задавать
    ' iColMin - Первый столбец из интересующих
    ' iColMax - Последний столбец из интересующих

    Dim i As Integer
        i = 0
    ' Массив который будет содержать названия столбцов, расчитанные по их номерам
    Dim ColNameToFormulas() As String
    ' iColMax - iColMin Определяют размер обрабатываемого массива
    ReDim ColNameToFormulas(0 To iColMax - iColMin)
    
    For i = 0 To iColMax - iColMin
        ColNameToFormulas(i) = CStr(WSheet.Cells(1, iColMin + i).EntireColumn.Address)          '$TQ:$TQ
        ColNameToFormulas(i) = Replace(ColNameToFormulas(i), "$", "")                           ' TQ:TQ
        ColNameToFormulas(i) = Left(ColNameToFormulas(i), InStr(ColNameToFormulas(i), ":") - 1) ' TQ
    Next
    
    Set F_ColName = ColNameToFormulas()
    
End Function

Function F_ColName(WSheet As Worksheet, iColMax As Integer, iColMin As Integer) As String()
' Ф-ция возвращает массив с буквенными названиями столбцов, расчитанными по их номерам
    
    ' WSheet - лист для которого производим расчет. Можно было использовать текущий лист, но решил строго его задавать
    ' iColMin - Первый столбец из интересующих
    ' iColMax - Последний столбец из интересующих

    Dim i As Integer
    ' Массив который будет содержать названия столбцов, рассчитанные по их номерам
    Dim ColNameToFormulas() As String
    ' iColMax - iColMin Определяют размер обрабатываемого массива
    ReDim ColNameToFormulas(0 To iColMax - iColMin)
    For i = 0 To iColMax - iColMin
        ColNameToFormulas(i) = CStr(WSheet.Cells(1, iColMin + i).EntireColumn.Address)          '$TQ:$TQ
        ColNameToFormulas(i) = Replace(ColNameToFormulas(i), "$", "")                           ' TQ:TQ
        ColNameToFormulas(i) = Left(ColNameToFormulas(i), InStr(ColNameToFormulas(i), ":") - 1) ' TQ
    Next
    F_ColName = ColNameToFormulas()
End Function

Sub M()

    Dim WBook As Workbook
    Set WBook = Workbooks("Сводный отчёт по ДЗ и ПДЗ.xlsb")
    Dim WSheet As Worksheet
    Set WSheet = WBook.Worksheets("Данные")
    Dim iColMax As Integer, iColMin As Integer
        iColMax = 100
        iColMin = 90
    Dim i As Integer
    ' Массив содержащий названия столбцов
    Dim ArrColName() As String
        ArrColName() = F_ColName(WSheet, iColMax, iColMin)
End Sub

Sub Proc()
ReDim f(0 To 2) As String
 f(0) = 4&
 f(1) = 5&
 f(2) = 6&
 Debug.Print "VarPtr  &f(0)=" & VarPtr(f(0)); "   StrPtr &f(0)=" & StrPtr(f(0))
 
Dim sVar As String
    sVar = "Hello world!"
 Debug.Print "VarPtr  &sVar=" & VarPtr(sVar); "   StrPtr &sVar=" & StrPtr(sVar)
End Sub

Function f1() As Long()
 ReDim ff(0 To 2) As Long
    ff(0) = 1&
    ff(1) = 2&
    ff(2) = 3&
 Debug.Print "VarPtr &ff(0)=" & VarPtr(ff(0))
 f1 = ff
End Function
Sub test()
  Dim i As Long
  Dim m1() As Long
  ' используем скобки слева
  m1() = f1
 Debug.Print "VarPtr &m1(0)=" & VarPtr(m1(0))
  'смотрим что получилось
  For i = 0 To 2
    Debug.Print "m1(" & i & ")=" & m1(i)
  Next
End Sub

f1 = ff

m1() = f1

Function f1() 'As Long()
 ReDim ff(0 To 2) As Long
    ff(0) = 1&
    ff(1) = 2&
    ff(2) = 3&
 Debug.Print "VarPtr &ff(0)=" & VarPtr(ff(0))
 f1 = ff
End Function
Sub test()
  Dim i As Long
  Dim m1() As Long
  ReDim m1(0 To 20) As Long
  Debug.Print "VarPtr &m1(0)=" & VarPtr(m1(0))
  ' используем скобки слева
  m1 = f1
 Debug.Print "VarPtr &m1(0)=" & VarPtr(m1(0))
  'смотрим что получилось
  For i = 0 To 2
    Debug.Print "m1(" & i & ")=" & m1(i)
  Next
End Sub

Sub test1()
  Dim Arr1() As Long
  ReDim Arr1(0 To 20) As Long
  Debug.Print "VarPtr &Arr1(0)=" & VarPtr(Arr1)
End Sub