Como evitar que que después de una linea de código se salte a el evento Change repentinamente.

Hola experto soy un principiante de Vba para excel.

tengo un libro con macro la cual he creado para gestionar básicamente cobranzas.

aun que es muy precario el sistema que he realizado. Me dan fallas como por ejemplo cuando intento cambia un cambo box en el formulario llamado gestión. Me arroja un mensaje diciendo "Recursos insuficientes para realizar esta operación."

en la celda a4 de la hoja "datos" se ejecuta un procedimiento que llama a los datos de la hoja "2" según el grado el llamado a los rango lo coge de la celda a1 que genera el nombre de los rango.

por ejemplo para el:

nivel inicial

3 Años es Grado1

4 años es Grado2....

se lanza un formulario Llamado Reporte seleccionando las celdas desde la A7 hasta la A46 de la hoja datos

hasta allí todo normal, pero cuando se inicial el evento change del combobox grado automáticamente arroja el valor de verdadero al combox alumnos y hace que genere un error, y no tengo idea por que cambia el valor de combo box alumnos

tengo una porción de código que genera el error

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 'Application.ScreenUpdating = False
'On Error GoTo Salir
 If Not Application.Intersect(Target, Range("A7:A46")) Is Nothing Then
 Sheets("Datos").Unprotect "kodygo007"
 If ActiveCell.Offset(0, 1) = "" Then
 MsgBox "No hay Registros", , "Sin alumnos": GoTo es
 End If
 Sheets("Datos").Unprotect "kodygo007"
 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
 Reporte.Show
 Sheets("Datos").Protect "kodygo007"
 End If
 If Not Application.Intersect(Target, Range("B2:B4")) Is Nothing Then
 Sheets("Datos").Unprotect "kodygo007"
 ActiveWindow.ScrollColumn = 3
 Sheets("Datos").Protect "kodygo007"
 End If
 GoTo es
Salir:
 MsgBox "Error Inesperado en Datos"
es:
'aqui pasa automaticamnete al evento change del combobox Llamado CmBAlumno y le cambia el texto a verdadero
'(que es lo que no quiero que pase pero no se por que pasa
End Sub
'y se pasa al módulo de codigo del formulario Reportes
Private Sub CmBAlumno_Change()
Sheets("Datos").Unprotect "kodygo007"
Hoja4.Range("a1").Value = CmBAlumno.Text
Call FOTO
Call Boxmes
Cells.Find(What:=CmBAlumno, After:=Range("b7"), SearchOrder:=xlByColumns).Activate
Sheets("Datos").Protect "kodygo007"
End Sub

se genera un error por que el combobox de alumnos se cambia a l texto "verdarero"

y la funcion find no encuentra ese nombre.

nesecito su ayuda por que aun soy principiante en esto y no se que hago mal.

les adjunto un link del archivo.

espero me puedan ayudar, Muchas Gracias