Error 28 pero funciona la macro

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 código:

Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
If Range("$L$7").Value = "1" Then
Macro18
End If
End Sub

Sub Macro18()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Str1 As String
Dim Str2 As String
Dim resultado1 As Long
Str1 = Range("C8")
Str2 = Range("L9")
resultado1 = StrComp(Str1, Str2, vbTextCompare)
Range("N9") = resultado1 + 1
Sheets("Hoja1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
If Range("N9").Value = "1" Then
macro1
End If
End Sub

Sub macro1()
Range("J20").Value = "Debo poner esto funciona"
End Sub