Find(SPELER, LookIn:=xlValues) problem with hidden colloms!!!
you can use the MATCH function, if it's whole value of a cell that is searched
With Sheets("Spelers")
nLine = .Range("J" & Application.Match(SPELER, .Range("J1:J65000"), 0))
.Cells(nLine, 1) = ""
End With
--
isabelle
|