title: Sending email based on cell values
body: <p>Is there a more efficient way to send email reminders based on a cell value that changes frequently?</p>
  <pre><code>'This is the main function
  
  Sub notify()          
   Dim rng As Range
   For Each rng In Range(&quot;F3:F14&quot;)
      If (rng.Value = 1) Then
          Call mymacro
      End If
   Next rng
    
  End Sub
  '-----------------------------------------------------------------------
  
    'This is the function that sends an email when called by the main function
  
    Private Sub mymacro()  
      Dim xOutApp As Object
      Dim xOutMail As Object
      Dim xMailBody As String
      Set xOutApp = CreateObject(&quot;Outlook.Application&quot;)
      Set xOutMail = xOutApp.CreateItem(0)
      xMailBody = &quot;Hi there&quot; &amp; vbNewLine &amp; vbNewLine &amp; _
                &quot;This is line 1&quot; &amp; vbNewLine &amp; _
                &quot;This is line 2&quot;
      On Error Resume Next
      With xOutMail
          .To = &quot;email address&quot;
          .CC = &quot;&quot;
          .BCC = &quot;&quot;
          .Subject = &quot;test succeeded&quot;
          .Body = xMailBody
          .Display   'or use .Send
      End With
      On Error GoTo 0
      Set xOutMail = Nothing
      Set xOutApp = Nothing
  End Sub
  </code></pre>
  <p>Both codes are in the same module of my worksheet. The code sends an email (through Outlook) to the user. For example, if F3 and F7 evaluate to true, two emails will be sent to the user.</p>
  <p>How can I, if the same situation occurs (F3 and F7 evaluate to true), the two email sent to the user would specify which cell evaluated to true. In other words, each email sent would be different in pointing out which specific cell evaluated to true.</p>
  <p>Also, would the code be able to rerun if the data inside the cell (&quot;F3:F14&quot;) is updated?</p>