Return formula in cell
 

XL 2003
Would like to return the address of a formula to a cell, need some
combination of Indirect and Cell (address) I think,

Example
A1 100 ( a value)
A2 = a1
A3 want to return cell addresss that formula in A2 is pointing to (ie
A1) =cell("address",a2......here's where I need the help

It would be complex if A2 had mulitple pointers, but in my case they
are just 1 cell

Return formula in cell
 

You need to use VBA. Copy the code below into a codemodule of the workbook, and use it like

=PointsTo(A2)

HTH,
Bernie
MS Excel MVP

Function PointsTo(myC As Range) As String
If myC.HasFormula Then
PointsTo = Mid(myC.Formula, 2)
Else
PointsTo = "No formula"
End If
End Function


wrote in message
...
XL 2003
Would like to return the address of a formula to a cell, need some
combination of Indirect and Cell (address) I think,

Example
A1 100 ( a value)
A2 = a1
A3 want to return cell addresss that formula in A2 is pointing to (ie
A1) =cell("address",a2......here's where I need the help

It would be complex if A2 had mulitple pointers, but in my case they
are just 1 cell

Return formula in cell
 

Say A2 contains the formula:

=A1+Z10

Select A2 and run:

Sub missive()
Set r = ActiveCell
r.Offset(1, 0).Value = r.Precedents.Address
End Sub

A3 will contain:

$A$1,$Z$10

--
Gary''s Student - gsnu2007d


" wrote:

XL 2003
Would like to return the address of a formula to a cell, need some
combination of Indirect and Cell (address) I think,

Example
A1 100 ( a value)
A2 = a1
A3 want to return cell addresss that formula in A2 is pointing to (ie
A1) =cell("address",a2......here's where I need the help

It would be complex if A2 had mulitple pointers, but in my case they
are just 1 cell