title: Function to return "too low", "too high" or "OK" for each cell in a range
body: <p>I want a function to run through a range of cells and if:  </p>
  
  <ul>
  <li><p>any are greater than <code>NormalValue</code> then return 'too low',  </p></li>
  <li><p><code>NormalValue</code> is greater than double the maximum value in the range
  then return 'too high',</p></li>
  <li>neither of these are true, then return    'OK'.</li>
  </ul>
  
  <p>This is what I have come up with so far:</p>
  
  <pre><code>Function TooHighLow(rng As range, NormalValue As Double)
  
    For Each cell In rng
       If Application.WorksheetFunction.Max(cell.Value) &gt; NormalValue Then
          TooHighLow = "Too Low"
  
       ElseIf NormalValue &gt; 2 * (Application.WorksheetFunction.Max(cell.Value)) Then
          TooHighLow = "Too High"
  
       Else
          TooHighLow = "OK"
  
       End If
    Next cell
  End Function 
  </code></pre>