VBA code that will return a cells previous value, if that cell has its value deleted but a new value is not inputed

[addman24]

Hi, looking for vba/macro code that will return an old value to a cell if the user deletes that cells value and doesn't enter anything in. So for example if cell A1 has the value $1000.00, and the user clicks on cell A1 and hits delete so that A1 is blank, and user doesnt enter anything into A1 and then proceeds to select another cell like C1 for example. This macro/vba will restore the value of A1 to $1000.00

Tried doing searches but couldn't find anything.

 

[offthelip]

welcome to the forum,
try putting this code in the worksheet code:

Public lasttime As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" And lasttime <> "" Then
Application.EnableEvents = False
Target.Value = lasttime
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lasttime = Target.Value
End Sub