View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default 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