Hello Arneld,

Try this change to the code...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsNull(Target.Text) Then Target.Value = ""
    Prior = Target.Value
End Sub