change cell event using circular reference

  • Thread starter Thread starter Dan
  • Start date Start date
Hi,

Right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

If Not Intersect(Target, Range("A2")) Is Nothing Then

Target.Offset(, 1).Value = Time

End If

End Sub
 
Thank you all, but I am looking for a formula not vba - this is why I have
put in my subject "circular reference" and also poseted it in the "Excel
Worksheet Functions" and not "Excel programming"
 
Back
Top