sending an auto mail from excel based on multiple conditions - excel

Question

I am a VBA novice so thanks in advance for anyone who can help me here. Basically I am using an adapted Ron de Bruin piece of code to automatically send a mail to students when their attendance drops below a certain level as displayed in a particlular excel cell. So far, so good, the Ron de Bruin stuff looks after this.
But there is another criterion which I want to add and that is basically to only send the mail if there is also a letter 'Y' in a different cell in the same row as the attendance.
To summarize, I only want the mail to go to people who fulfill the two criteria, 1)dropping below a certain level, and 2)having a 'Y' in another cell, but the code at the moment only accounts for the first criterion. Huge thanks. Alun (code below)
Option Explicit
Private Sub Worksheet_Calculate()
Dim FormulaRange As Range
Dim NotSentMsg As String
Dim MyMsg As String
Dim SentMsg As String
Dim MyLimit As Double
NotSentMsg = "Not Sent"
SentMsg = "Sent"
'Above the MyLimit value it will run the macro
MyLimit = 80
'Set the range with Formulas that you want to check
Set FormulaRange = Me.Range("BH279:BH280")
On Error GoTo EndMacro:
For Each FormulaCell In FormulaRange.Cells
With FormulaCell
If IsNumeric(.Value) = False Then
MyMsg = "Not numeric"
Else
If .Value < MyLimit Then
MyMsg = SentMsg
If .Offset(0, 1).Value = NotSentMsg Then
Call Mail_with_outlook2
End If
Else
MyMsg = NotSentMsg
End If
End If
Application.EnableEvents = False
.Offset(0, 1).Value = MyMsg
Application.EnableEvents = True
End With
Next FormulaCell
ExitMacro:
Exit Sub
EndMacro:
Application.EnableEvents = True
MsgBox "Some Error occurred." _
& vbLf & Err.Number _
& vbLf & Err.Description
End Sub

Answer 1

If .Value2 < MyLimit And Not .EntireRow.Find(What:="Y", LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then Call Mail_with_outlook2
'If you look for the complementer solution, remove the " Not"
You look for the value "Y" in the same row.
I'd recommend setting output variables as well to the mailing macro Call Mail_with_outlook2(emailaddress, name, title, MyValue).