Sub AA()
Dim MyRange As Object
Set MyRange = Application.InputBox(prompt:= _
"What cell do you want to document?", Title:="Select Cell",
Type:=8)
ActiveCell.Value = MyRange.Address
End Sub

This will put in your active cell (A5 in your example) the string
"$A$1". I suppose if you want it in the way you described, you can
try this:

Sub AAA()
Dim MyCell As String
Dim MyRange As Object
Set MyRange = Application.InputBox(prompt:= _
"What cell do you want to document?", Title:="Select Cell",
Type:=8)
MyCell = MyRange.Address
ActiveCell.Value = "=Cell(""address""," _
& MyCell & ") & Cell(""filename"", " & MyCell & ")"
End Sub

Regards, John




"Terry" wrote in message ...
I want to write a macro that documents the address of the
cell that is clicked, NOT the active cell.

Example:
With A5 active, you invoke the macro.
The macro asks "What cell do you want to document?"
The user then clicks, say, A1.
The macro then enters this in A5: =cell("address",a1)&cell
("filename",a1)

Thanks!