Nechcem aby sa akrualizovala Now() funkcia.

Ahojte,
v bunkach E1:E1000 budu zadavane hodnoty OK a NOK.
Ak bude napr. v bunke E50 hodnota OK, tak v bunke B50 bude datum a cas, ked dana hodnota OK bola vlozena, ale zaroven po dalsom otvoreni daneho suboru sa tato hodnota nebude aktualizovat.
V pripade ze v bunke bude NOK, tak prislusne pole v stlpci B bude prazdne.
Malo by to ist spravit cez makro si mylim, len s nimi velke skusenosti nemam.
Nieco taketo, len to potrebujem upravit aby to pracovalo:)
Dakujem pekne!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E1:E1000")).Value = "NOK" Then
    If Intersect(Target, Range("B1:B1000")).Value = ""
    Else
      Intersect(ActiveCell, Range("B1:B1000")).Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
    End If
  End If
End Sub