no dejar insertar filas

Hola Fredy:
Para Ex_2000 y Ex_2003
¡OJO! NO VALE PARA Ex_2007
Inserta este código en la Hoja que quieras proteger de insertar filas cuando
A1 = "OK"

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If [A1] = "OK" Then
[IV65536] = "zzzzz"
MsgBox "No se podrán insertar filas en esta hoja.", vbOKOnly, "AVISO
IMPORTANTE"
Else: [IV65536] = ""
End If
End Sub

Desde Salamanca 40.95N 5.5W
Juan Español.

"fredy" escribió en el mensaje de noticias
news:

buenos dias

Necesito saber como hago para que cuando una celda (p.e. A1) tenga un
valor
"OK", no se permita insertar filas por debajo de esta .
muchas gracias

Fredy