debugging - Macro VBA script -

can me problem. have code doesn't work. wrong says "sub or function not define".

sub macro1() ' ' macro1 macro ' dim x integer, result string  x = 2  ' 1st row  while cells(x, 4).value = 1        if cells(x, 3).value <= cells(x, 2).value , not cells(x, 4).value < cells(x, 1).value       result = "pass"        else       result = "fail"        end if       cell(x, 5).value = result        x = x + 1 loop  end sub 

change cell cells , work. excel wasn't being helpful enough error message. select text cell when have editor open , try run it.

sub macro1() ' ' macro1 macro ' dim x integer, result string  x = 2  ' 1st row  while cells(x, 4).value = 1        if cells(x, 3).value <= cells(x, 2).value , not cells(x, 4).value < cells(x, 1).value       result = "pass"        else       result = "fail"        end if        cells(x, 5).value = result        x = x + 1 loop  end sub