I am trying to create a nonvolatile date stamp in Column A cells as entries are made in B, C and D cells in the same row.

```
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To 10000
    If Cells(i, “B”).Value <> “” And _
       Cells(i, “C”).Value <> “” And _
       Cells(i, “D”).Value <> “” And _
       Cells(i, “A”).Value = “” Then

        Cells(i, "A").Value = Date & " " & Time
        Cells(i, "A").NumberFormat = "m/d/yyyy h:mm AM/PM"
    End If
Next
Range("A:A").EntireColumn.AutoFit
End Sub

```

*I made it go to 10000 for the simple fact I do not know how to tell it to go as long as entries are entered.*