¿Excel tiene un método integrado para analizar fórmulas? (es decir: para obtener una lista de referencias RANGE incluidas)

Gracias a @TimWilliams y @brettdj por orientarme en la dirección correcta de discusiones previas sobre este tema, puedo decir con confianza:

NO, EXCEL NO TIENE UN MÉTODO PARA EL ANÁLISIS.

Sin embargo, para mis propósitos bastante mínimos, se me ocurrió algo que funciona, funciona con referencias cruzadas de hojas de trabajo y se puede llamar desde una UDF.

Sin embargo, es extremadamente frágil y hay multitud de fórmulas perfectamente legítimas que estoy seguro de que no se manejarían correctamente.

El código es un desastre y podría mejorarse mucho, pero solo quería mostrarlo aquí, ya que por el momento me estoy moviendo hacia otra cosa...

EDITAR

También encontré esto, que se ve muy interesante:
http://www.dailydoseofexcel.com/archives/2009/12/05/formula-tokenizer/

Public Function CellPrecedents(cell As Range) As Variant()
    Dim resultRanges As New Collection
    If cell.Cells.count <> 1 Then GoTo exit_CellPrecedents
    If cell.HasFormula = False Then GoTo exit_CellPrecedents

    Dim formula As String
    formula = Mid(cell.formula, 2, Len(cell.formula) - 1)

    If IsRange(formula) Then
        resultRanges.Add Range(formula), 1
    Else
        Dim elements() As String
        'Debug.Print formula & " --> "
        formula = Replace(formula, "(", "")
        formula = Replace(formula, ")", "")
        'Debug.Print formula & " --> "
        elements() = SplitMultiDelims(formula, "+-*/\^")
        Dim n As Long, count As Integer
        For n = LBound(elements) To UBound(elements)
            If IsRange(elements(n)) Then
                'ACTUALLY JUST DO A REDIM PRESERVE HERE!!!!
                count = count + 1
                'resultRanges.Add Range(Trim(elements(n)))  '<---  Do **NOT** store as a range, as that gets automatically Eval()'d
                resultRanges.Add Trim(elements(n))
            End If
        Next
    End If

    Dim resultRangeArray() As Variant
    ReDim resultRangeArray(resultRanges.count)
    Dim i As Integer
    For i = 1 To resultRanges.count
        resultRangeArray(i) = CStr(resultRanges(i))  '// have to store as a string so Eval() doesn't get invoked (I think??)
    Next

    CellPrecedents = resultRangeArray

exit_CellPrecedents:
    Exit Function
End Function

Public Function IsRange(var As Variant) As Boolean
    On Error Resume Next
    Dim rng As Range: Set rng = Range(var)
    If err.Number = 0 Then IsRange = True
End Function

(solo google SplitMultiDelims para esa función)

Tbone, Otra opción que no es directamente lo que pediste pero podría funcionar como solución alternativa.

En lugar de usar una fórmula para tratar de encontrar la etiqueta correspondiente, intente ajustar sus fórmulas para que funcionen para usted. Aquí hay un par de opciones dependiendo de cuál sea la fórmula que estaba tratando de analizar. 1. Si su fórmula es una búsqueda, puede simplemente compensar para mirar a la izquierda. 2. Alternativamente, puede usar la función "Indirecta" en ambas fórmulas para asegurarse de que hagan referencia a la ubicación correcta.

En resumen, creo que quieres hacer una subparte de: Use VBA to generate code to reproduce basic calculations on an Excel worksheet, y usar una función para devolver la dirección o el nombre del elemento de la colección DirectPrecedents número n.

fuente: http://www.vb-helper.com/howto_vba_excel_formulas.html

Sin embargo, este caso de uso ha quedado obsoleto. A partir de Excel 2007, las tablas permiten una solución mucho mejor.