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