In this case, you don't need to loop if you only want all the cells (n2:n50)
to be empty as the second condition
If Range("n1").Value < "" And Application.CountA(Range("n2:n50")) = 0 Then
item = 1






--
Regards,
Tom Ogilvy


"Ron Rosenfeld" wrote in message
...
On Sat, 21 Jan 2006 19:17:02 -0800, "Mike"

wrote:

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

I think the problem has to do with trying to get the Value property of a
multicell Range object. I think you have to loop through the range to do
what
you are trying to do.


--ron