Aktuel tid i celle

Hej jeg har også prøvet dette men den opdateres også hver gang der sker en ændring og det skal den ikke:)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim Cell As Range

For Each Cell In Range("b7:b100")
If Cell.Value > 0 Then _
Cell.Offset(0, -1) = Now()
Next Cell
End Sub

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range

For Each Cell In Range("b7:b100")
    If Cell.Value > 0 And Cell.Offset(0, -1) = "" Then _
    Cell.Offset(0, -1) = Now()
Next Cell
End Sub

Hej og tak det er jo klart når man lige tænker efter men mange tak:))

Selv tak