Put this code into the worksheet's code area:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:H52")) _
Is Nothing Then
Range("B2") = Now()
End If
End Sub

To put it where it needs to go, choose the sheet and right-click on the
sheet's name tab and choose [View Code] from the popup list, copy the code
and paste it into the module presented to you. Any time a changes is made in
any cell in the range B4:H52, the time of that change will be put into B2.

"shasta2711" wrote:

I need to setup a document to show the date and time of any changes to the
document. Date and time will be in cell 2B the information being tracked are
in cells 4B through 52H.

I'm kind of new at this time of programing if anyone can help, I'd sure
appreciate it.