Need help with Msgbox Code

[jwilso81]

I am trying to write a code to display a msgbox when the value of one cell is greater than they value of another. For example, if (O4) is greater than (P4) or (L4) then the msgbox will appear. If either (P4) or (L4) are greater or equal to (O4) then NO msgbox will appear. Also, I need this code to apply to each row separately, however, I need a code for about 30 rows. In other words it would look something like:
if (O4) is greater than (P4) or (L4) then the msgbox will appear
if (O6) is greater than (P6) or (L6) then the msgbox will appear
if (O8) is greater than (P8) or (L8) then the msgbox will appear
if (O10) is greater than (P10) or (L10) then the msgbox will appear...ect.

Any help would be greatly appreciated.

 

[XLP]

Hi,

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For row_no = 1 To 30
        If Cells(row_no, "O") > Cells(row_no, "P") Or Cells(row_no, "O") > Cells(row_no, "L") Then box = MsgBox("Row : " & row_no, 64, "Information")
    Next
End Sub

 

[jwilso81]

I appreciate your quick response.
I am having an issue with the Code.
When I tested the code on a simple spreadsheet comparing column A,B,C it worked perfectly. However, when I put the code into a more complicated spreadsheet it is not working.
Will the fact that cells "O4","P4" & "L4" are formulas make a difference?

 

[XLP]

And this one ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For row_no = 1 To 30
        If Val(Cells(row_no, "O")) > Val(Cells(row_no, "P")) Or Val(Cells(row_no, "O")) > Val(Cells(row_no, "L")) Then box = MsgBox("Row : " & row_no, 64, "Information")
    Next
End Sub

 

[jwilso81]

No, still not getting the msgbox.

 

[XLP]

Can you post a sample ?