Tengo el código actual calculando el valor de una sola celda y luego llamando a un módulo si su valor excede otro valor.

¿Cómo puedo hacer que compruebe varios rangos de celdas, por ejemplo, B5: E5, B8: M8 y llamar al módulo si alguna de las celdas en el rango excede el valor?

Private Sub Worksheet_Calculate()
If Range("B5") > 4 Then
Application.EnableEvents = False
Application.Run "Mail_small_Text_Outlook"
Application.EnableEvents = True
End If
End Sub