Como ejecutar varias macros un libro de excel

Buenas tardes:

Una pregunta como se puedan ejecutar las siguientes macros al mismo tiempo automáticamente ya que me envía un error al momento de realizarlas.

Y si en su caso se puedan agregar mas macros ya que agregaría 2 mas que estoy por realizar.

Gracias de antemano por su ayuda.

Dim X As Variant

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo neo

If Intersect(Target, Range("E7:F454")) Is Nothing Or Target.Value = "OTROS" Then Exit Sub If Intersect(Target, Range("E7:F454")) Is Nothing Or Target.Value = "PROCESO" Then Exit Sub

If Intersect(Target, Range("E7:F454")) Is Nothing Or Target.Value = "DELEGAR" Then Exit Sub

If Target.Value = "" And X = "DELEGAR" Then

Target.Offset(, 13).ClearContents Else Target.Offset(, 13) = Format(Now, "hh:mm:ss")

End If

neo: Exit Sub

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

X = Target.Value

On Error Resume Next

If Target.Column <> 10 Then Exit Sub

Select Case UCase(Target.Text)

Case "SEP" MsgBox "Solo se aceptan profesores de base"

Case "SNTE 41" MsgBox "Dato incorrecto"

End Select

Resume Next

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error GoTo etiqueta

If Target.Value = "OTROS" Then

Range(Target.Address, "W" & Target.Row).Interior.Color = RGB(255, 0, 0)

End If

If Target.Value = "ANÁLISIS INTEGRAL" Then Range(Target.Address, "W" & Target.Row).Interior.Color = RGB(255, 255, 0)

End If

If Target.Value = "RECHAZADA" Then Range(Target.Address, "W" & Target.Row).Interior.Color = RGB(128, 128, 128)

End If

etiqueta: Exit Sub

End Sub