Please use Code Tags


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Value <> 0 Then Target.Value = "ü"
Application.EnableEvents = True

End Sub

Regards, TMS