Hi Carim,

Thanks for the reply...

I have populated cells in B2000:B3000 that when read give a false
result to the macro.

Cheers

Ron




On 25 Mar 2006 07:19:17 -0800, "Carim" wrote:

Hi Ron,

I would replace Set rng by the following :
Set rng=.Range("B3:B" & Range("A65536").End(xlUp).Row)

HTH
Cheers
Carim