<div>
The first one that's true is calculated and the following ones are ignored.<br />

<pre><code class="code-10 nolinks" id="code-20-42395800-1"><span>Range(&quot;D2&quot;).Activate</span>
<span>    Select Case ActiveCell.Value ' Examine the contents of D2</span>
<span>    </span>
<span>        Case Is &gt; 1.15 * IEHaworthLogin</span>
<span>           ' It's greater than 1.15 * IEHaworthLogin (I assume that this is some kind of numeric variable)</span>
<span>            Result = 1.15 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbRed ' Make the cell red</span>
<span>        Case 1.1 * IEHaworthLogin To 1.15 * IEHaworthLogin</span>
<span>             'The value is between 1.11 * IEHaworthLogin and 1.15 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbYellow</span>
<span>        Case 0.9 * IEHaworthLogin To 1.1 * IEHaworthLogin</span>
<span>           'The value is between 0.9 * IEHaworthLogin and 1.11 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbGreen</span>
<span>        Case Is &lt; 0.9 * IEHaworthLogin</span>
<span>          ' 0.9 * IEHaworthLogin value is &lt; .9 so make it cyan color</span>
<span>            ActiveCell.Interior.Color = vbCyan</span>
<span>    End Select</span>
</code></pre>
</div>


<div>
It doesn't make sense to have <b> Result =</b> in the first Case or anywhere (if similar statements were added) &nbsp;because Result is being set to what the value already is and you could use Range(&quot;D2&quot;).Value directly.
</div>


<div>
Looks like the data type in the variable is General... and it is an average. &nbsp;I was at first concerned about the E+02 type values in the average variable but it is not there anymore. &nbsp;I prefer the If and ElseIf method myself... &nbsp;The sub is only checking a couple cells, so it is not a huge deal.. and I did not want to go down the Conditional Formatting path.<br />
<br />
There was a comment by Martin that said &quot;rest are ignored&quot;? &nbsp;Is that ok? &nbsp;As long as Result is calculated once it is good? Or should that be in each of the follow Cases too? &nbsp;I guess I am not used to the Case Is and Case method instead of the If and ElseIf
</div>


<div>
How would that look replacing the code with: &nbsp;Range(&quot;D2&quot;).Value directly? &nbsp;Or using the If and IfElse method instead of CaseIs and Case?
</div>


<div>
I have no idea what Result is used for but <b>MsgBox Range(&quot;D2&quot;).Value </b>would show the same value that's in Result.<br />
<br />
IMO, If and IF Else would be a poorer way to go.
</div>


<div>
Thanks all for the help today.... &nbsp;guess I need to start writing more Case Is \ Case statements then If and IfElse... &nbsp; Appreciate the help.
</div>


<div>
You’re welcome and I’m glad I was able to help.<br />
<br />
If you expand the “Full Biography” section of <a href="http://“http://www.experts-exchange.com/M_258447.html”" rel="ugc">my profile</a> you’ll find links to some articles I’ve written that may interest you.<br />
<br />
Marty - Microsoft MVP 2009 to 2017<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts Exchange MVE 2015 <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts Exchange Top Expert Visual Basic Classic 2012 to 2017
</div>


<div>
Maybe I should add this note, that I had to remove the ActiveCell references too.<br />
<br />
Based on this the final code looks like:<br />

<pre><code class="code-10 nolinks" id="code-20-42398179-1"><span>Select Case (Range(&quot;D2&quot;).Value)</span>
<span>    Case Is &gt; 1.15 * IEHaworthLogin</span>
<span>        Result = 1.15 * IEHaworthLogin</span>
<span>        Range(&quot;D2&quot;).Interior.Color = vbRed</span>
<span>    Case 1.1 * IEHaworthLogin To 1.15 * IEHaworthLogin</span>
<span>        Range(&quot;D2&quot;).Interior.Color = vbYellow</span>
<span>    Case 0.9 * IEHaworthLogin To 1.1 * IEHaworthLogin</span>
<span>        ActiveCell.Interior.Color = vbGreen</span>
<span>    Case Is &lt; 0.9 * IEHaworthLogin</span>
<span>        Range(&quot;D2&quot;).Interior.Color = vbCyan</span>
<span>End Select</span>
</code></pre>
</div>


<div>
Thats right... &nbsp;I did not need Ln3. &nbsp;Thanks for pointing that out.
</div>


<div>
<div class="content wysiwyg-content">
Could I have someone review this code? &nbsp;It just looked odd not having the Result = &nbsp;in each case following Case statements after the original Case Is? &nbsp;Would like to know what this is saying in English.<br />
<br />

<pre><code class="code-10 nolinks" id="code-10-29072578-1"><span>Range(&quot;D2&quot;).Activate</span>
<span>    Select Case ActiveCell.Value</span>
<span>    </span>
<span>        Case Is &gt; 1.15 * IEHaworthLogin</span>
<span>            Result = 1.15 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbRed</span>
<span>        Case 1.1 * IEHaworthLogin To 1.15 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbYellow</span>
<span>        Case 0.9 * IEHaworthLogin To 1.1 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbGreen</span>
<span>        Case Is &lt; 0.9 * IEHaworthLogin</span>
<span>            ActiveCell.Interior.Color = vbCyan</span>
<span>    End Select</span>
</code></pre>
</div>
</div>


Could I have someone review this code?  It just looked odd not having the Result =  in each case following Case statements after the original Case Is?  Would like to know what this is saying in English.

(CODE)

Review VBA code?  What is this in English?

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.