Changed Cell Address

  • Thread starter Thread starter Richard
  • Start date Start date
R

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
 
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.
 
Back
Top