Changed Cell Address

[Richard]

I am using the Sub shown below.
Question: How do I determine the address of the changed
cell?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
Dim IntersectRange As Range

Set WatchRange = Range("E1:E31")

Set IntersectRange = Intersect(Target, WatchRange)

If IntersectRange Is Nothing Then
'MsgBox "Changes occured outside of range"
Else
'MsgBox "You modified the selected range of cells"
Application.Run "Test.xls!Time_Stamp"
End If

End Sub

 

[JulieD]

Hi Richard

maybe
target.address

Cheers
JulieD

 

[JE McGimpsey]

You can use

Target.Address

Note that if multiple cells are selected, the *range* address is
returned by Target, so you won't know which cell was changed unless you
saved the previous values and compared them.