Hi,

Try this:-

Sub surface()
Set myrange = Range("A2:A4000")
For Each c In myrange
c.Select
If c.Value = "B5" Then
MsgBox (" B5 found in " & ActiveCell.Address)
End If
Next
End Sub

Mike

"raraschek" wrote:

thanks for help:
do you have any idea, how to find out, if a value (B5) IS in a range
(A2:A4000)?
I can´t sort these values, so I thought I can´t use any search function, and
don´t have idea how to compile this code. thanks