John,

Try this

Sub sonic()
For Each c In Range("I4:I18")
If IsNumeric(c.Value) And c.Value 0 And c.Value c.Offset(, 13).Value
Then
'Do something"
End If
Next
End Sub

Mike

"John" wrote:

I have data in I4:I18. If the value is greater than zero I would like to
check if the value in V & activerow (ex: V4) is greater than I & activerow.
If so, do command and keep checking the remaining rows.