VBA对单元格大小逻辑进行判断

判断j列数据>m列数据>l列数据>m列数据，否则提示错误

Sub test()
    n = 5           '表示从第5行开始
    While (n <= 147)        '到147行终止
        c1 = Range("j" + CStr(n)).Value         'j列判断
        c2 = Range("k" + CStr(n)).Value
        c3 = Range("l" + CStr(n)).Value
        c4 = Range("m" + CStr(n)).Value
        If c1 < c2 Or c1 < c3 Or c1 < c4 Or c2 < c3 Or c2 < c4 Or c3 < c4 Then      '关键判断步骤
            MsgBox "第" + CStr(n) + "个单元格不符合逻辑", vbOKCancel, "错误"
        End If
        n = n + 1         
    Wend
    MsgBox "成功", vbOKCancel, "成功" 
End Sub