VBA Time Stamp for single cell entry

[Logit]

.
In the module ThisWorkbook :

Option Explicit

Private Sub Workbook_Open()
    If Sheet1.Range("A1").Value > 0 Then
        Sheet1.Range("B1").Value = Now()
    End If
End Sub