Obecny kod oblicza wartość pojedynczej komórki, a wywołanie modułu, jeśli jego wartość przekracza inną wartość.

Jak mogę sprawić, by sprawdzał wiele zakresów komórek, np. B5: E5, B8: M8 i wywołał moduł, jeśli którakolwiek z komórek w tym zakresie przekracza wartość.

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