Thread: VB CODE
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Kanmi Kanmi is offline
external usenet poster
 
Posts: 76
Default VB CODE

Please can anybody help me check this code why is not working. If set of date
below change then Latest Update date on column "10" should automatically
change.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("14:578")) Is Nothing Then Exit Sub
If Target.Cells.Count 10 Then Exit Sub
Application.EnableEvents = False
Cells(10, Target.Column).Value = Date
Application.EnableEvents = True
End Sub