Question: This code inserts a date in column F.

```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim E As Range, F As Range, Inte As Range, r As Range
    Set E = Range("E:E")
    Set Inte = Intersect(E, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each r In Inte
        If r.Offset(0, 1).Value = "" Then
            r.Offset(0, 1).Value = Date
        End If
    Next r
    Application.EnableEvents = True
End Sub

```

I have two minor issues.

1) The date changes if I click into E cell. It should change after I insert a value, not on click.

2) I am trying to format the date. I tried this line:

```
r.Offset(0, 1).Value = Date & " " & Time    
r.Offset(0, 1).Value.NumberFormat = "mm/dd/yyyy hh:mm"

```

I am getting an error.

Answer: 
Try this:

```
r.Offset(0, 1) = Now    
r.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm"

```
```
 r.Offset(0, 1).Value = FORMAT(NOW(), "mm/dd/yyyy hh:mm")

```