Display the date and time each time the data in a cell range is changed

Hi, Beana,

if the entries are made manually this code goes behind the worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H7:H25")) Is Nothing Then
  Range("H4").Value = Now
End If
End Sub

Ciao,
Holger