Undo en VBA

Hola:
Para cerrar datos de un ejercicio anual he querido utilizar este código

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:W230")) Is Nothing Then Exit Sub
If [C1] = "CERRADO" Then
Application.Undo
End If
End Sub

Pero como podéis comprender, ( dado que pregunto), no funciona, produce un
"bucle" el Application.Undo y cuando se "cansa" pues queda como yo quiero.
¿Que opináis?
¿Es posible? ¿Qué tengo que cambiar? ¿Lo tiro directamente a la basura?

Un saludo,
Juan Español.

"Juan Español" wrote in message
news:OFJwuaZ$
Perfecto.
Estás en plena forma KL, como siempre.
спасибо