Not a function but event code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("I1").Value = Target.Address(False, False)
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"cbre_bryork" <cbre_bryork@discussions.microsoft.com> wrote in message
news:70534EAD-C6AB-4A49-BE12-C43E7A05C206@microsoft.com...
> Is there a function that I could place in cell A1 that will return
> information on whatever cell is selected in on the spreadsheet? So for
> instance, if the current cursor position is in cell D3, I would like cell
A1
> to display "D3". And if I move the cursor to cell E5, I would like cell
A1
> to display "E5"