Juan Pelfort Soriano

Tengo un código que la macro ME FUNCIONA pero... Me sale error 28 y hasta que no pulso en el MsgBox no para de dar vueltas el círculo, esperando respuesta. Pero la macro funciona. ¿Podéis ayudarme de una manera sencilla? Gracias. Envío el siguiente...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$7" Then If UCase(Target.Value) = "JUAN" Then Macro1 ElseIf UCase(Target.Value) = "MARIA" Then Macro2 End If End If End Sub Sub Macro1() Range("J15").Value = "He de poner...

Tengo una macro sencilla, si le pongo un valor a una celda funciona pero si la celda tiene una fórmula o comparación (=SI(etc) entonces no va, he leído muchas preguntas/respuestas sobre esto las he probado todas y no me funciona ninguna.