asked on
Range("D2").Activate
Select Case ActiveCell.Value
Case Is > 1.15 * IEHaworthLogin
Result = 1.15 * IEHaworthLogin
ActiveCell.Interior.Color = vbRed
Case 1.1 * IEHaworthLogin To 1.15 * IEHaworthLogin
ActiveCell.Interior.Color = vbYellow
Case 0.9 * IEHaworthLogin To 1.1 * IEHaworthLogin
ActiveCell.Interior.Color = vbGreen
Case Is < 0.9 * IEHaworthLogin
ActiveCell.Interior.Color = vbCyan
End Select