I receive a 'type mismatch' when trying to use the following line of code to
check the contents of cells and then assign a constant to the variable 'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1