Making a time value permanent

  • Thread starter Thread starter A Drake
  • Start date Start date
A

A Drake

I need a function or macro that will place the system time in cell A1
when the user presses enter at cell B1... and I want that time stamp to
then "stick", i.e., never recalculate. Suggestions?
 
In the worksheet code window,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
Range("A1").Value = Time
End If
End Sub

Alan.
 
Back
Top