Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b
a = Sheet6.Range("N2:N")
b = Sheet6.Range("O2:O")
If a > b Or a = b Then MsgBox (" MAXIMUM")
End If
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b
a = Range("N2:N499")
b = Range("O2:O499")
    If a > b Then
    MsgBox (" MAXIMUM")
     End If
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a As Range, b As Range
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("e2:m499")) Is Nothing Then Exit Sub
    Set a = Range("N" & Target.Row)
    Set b = Range("O" & Target.Row)
    If a >= b Then
        MsgBox "MAXIMUM"
    End If
End Sub