This Change-event code might be what you're looking for.....

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = 1 Then
Target.Value = 1000
Else
If Target = 1000 Then
Target.Value = 1
Else
End If
End If
End Sub

Vaya con Dios,
Chuck, CABGx3



"Olle" wrote:

When I type 1000 in one cell and then push enter, I would like that only 1 is
shown.

Vice versa, typing 1 €“ I would like the cell to show 1000.