Excel - La macro lleva un debug

Dim Campo_Anterior As String

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim OutLookApp As Object

    Dim OutLookMailItem As Object

    Dim myAttachments As Object

    Application.ScreenUpdating = False

    If Target.Address = "$B$14" Or Target.Address = "$C$14" Then

        ActiveSheet.Unprotect

        If Range("B14") = Empty Or Range("C14") = Empty Then

            Rows("23:30").Select: Selection.EntireRow.Hidden = True   ' --- Ocultar

        Else

            Rows("23:30").Select: Selection.EntireRow.Hidden = True  ' --- Ocultar

            If Range("C14") > 0 And Range("C14") < 9 Then

                Rows("23:" & Range("C14") + 22).Select

                Selection.EntireRow.Hidden = False  ' --- Mostrar

            End If

        End If

        Range(Target.Address).Select

        ActiveSheet.Protect DrawingObjects:=True, _

                            Contents:=True, _

                            Scenarios:=True

    End If

    Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Campo_Anterior = "$E$39:$I$39" And Target.Address = "$C$5:$G$5" Then

        Set OutLookApp = CreateObject("Outlook.application")

        Set OutLookMailItem = OutLookApp.CreateItem(0)

        Set myAttachments = OutLookMailItem.Attachments

        With OutLookMailItem

            .To = Hoja1.Range("I5").Value

            .Subject = "Confirmación de RESERVA"

            .Body = Hoja1.Range("B75").Value

            '.send

            .Display

        End With

        Set OutLookMailItem = Nothing

        Set OutLookApp = Nothing

    End If

    Campo_Anterior = Target.Address

End Sub