Sub test() Dim j As Integer, k As Integer j = Cells(1, 1).End(xlDown).Row For k = 2 To j If IsNumeric(Cells(k, "c")) And Cells(k, "c") < 6000 Or Cells(k, "c") > 8600 _ And Cells(k, "G") = 0 Or Cells(k, "R") = 0 Then _ MsgBox "null values are present" Next k End Sub
DON'T MISS