Sub t()
  Dim x As Range, c As Range, i&
  Set x = Sheets(1).UsedRange.SpecialCells(xlCellTypeFormulas, 23)
  If Not x Is Nothing Then
    For Each c In x.Cells
      i = i + 1
      Sheets(2).Cells(i, 1).Value = Mid(c.Formula, 2)
    Next
  End If
End Sub

 
lLR = iShFound.Cells(Rows.Count, 4).End(xlUp).Row + 1
iShFound.Cells(lLR, 2) = iWB.Name                ' Имя файла (при переходе от файла к файлу)
iShFound.Cells(lLR, 3) = iSh.Name                         ' Имя листа (при переходе от листа к листу)
Do
   With iShFound
      iLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
      .Cells(iLastRow, 4) = iRng.Address            ' Адрес ячейки
      .Cells(iLastRow, 5) = Mid(iRng.Formula, 2)    ' Формула
      .Cells(iLastRow, 6) = iRng                    ' Значение
   End With

Sub io()
    Dim i&
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show: If .SelectedItems.Count = 0 Then Exit Sub
        For i = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(i)
        Next
    End With
End Sub

Dim aValues(), aFormuls()
aFormuls = Лист1.UsedRange.FormulaLocal
aValues = Лист1.UsedRange.Value

Option Base 1
Sub tt()
    Dim aValues(), aFormuls()
    Dim i&, j&
    Rem заносим в массив значения и формулы
    With Лист1.UsedRange
        aValues = .Value
        aFormuls = .FormulaLocal
    End With
    Rem проходим циклом по строкам и столбцам массивов
    For i = 1 To UBound(aFormuls)
        For j = 1 To UBound(aFormuls, 2)
            If aFormuls(i, j) <> Empty Then
                Debug.Print aValues(i, j), " - значение"
                Debug.Print aFormuls(i, j), " - формула"
                Debug.Print Cells(i, j).Address, " - адрес"
            End If
        Next
    Next
End Sub