codigo

Hola Fran

Ejemplo: Celda A1. Yo escribo pepito, pero quiero que en esa celda
aparezca Un 1.

Pulsa "Alt+F11" para abrir el Editor de Visual Basic, haz doble click
en el nombre de la hoja que te interese colocar el código y en la
ventana de la derecha que te aparece en blanco pon este código:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> 1 Then [a1] = 1
End Sub

Espero haberme explicado bien,
un saludo,
jose