For anyone following this, here's the solution that was worked out. Workbook
has 4 sheets this needs to be done from, with a fifth one sheet collecting
all the dates of when things happened on the other 4 - tracking 91 dates on
the 4 sheets:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Dim ChangedInRow As Long
Dim DifferenceInRowNumbers As Long

Set iSect = Application.Intersect(Range("F:F"), Range(Target.Address))
If iSect Is Nothing Then
' no change in column F
Exit Sub
End If
If iSect.Cells.Count 1 Then
'more than 1 cell selected
'do nothing
Exit Sub
End If
'change for each sheet
'source locations start on row 6, destination on row 4
' 4 worksheets involved, each has different offset to the destination row
DifferenceInRowNumbers = 4 - 6 ' row on Web - row on this sheet

Application.EnableEvents = False
ChangedInRow = iSect.Row
If IsNumeric(iSect) And iSect 0 Then ' it is a number
ThisWorkbook.Worksheets("Web").Range("D" & (ChangedInRow +
DifferenceInRowNumbers)).Value = Format(Now(), "m/d/yy")
Else
ThisWorkbook.Worksheets("Web").Range("D" & (ChangedInRow +
DifferenceInRowNumbers)).Value = ""
End If
Application.EnableEvents = True

End Sub


"Angel" wrote:

my question is
example
that if from sheet 1
i want to get value( numer) data if 0
display to another sheet the date when was insert

Regards

Thanks
for the help!