VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Sheet1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    If Range("D" & Target.Row).Value = "" Then
      Range("D" & Target.Row).Value = Now
    End If
  End If
End Sub