I think you mean duplicates

If Application.Countif(Range("B11:K40"),Activecell.Va lue) 1 Then
'duplicates

--
HTH

Bob Phillips

"Micos3" wrote in message
...
i don't know what is the problem on the VB and i think it could be managed
in
other way,do u know any command that gives the value in a cell that has
values that aren't readed by the excell?
I once had a similar problem, cos excell didn't read the values of the
cells
but a command that i don't remember, made excell to assume the values and
so
i did the formula.
Do you know any command that does this?

Thanks