It works !!!!

Thank you very much

:)

"Otto Moehrbach" wrote:

Something like this perhaps. This macro finds the cell in the range from A2
down to the last entry in Column A. The value it is looking for is
"TheValue". HTH Otto
Sub FindValue()
Dim TheRng As Range
Dim TheFoundCell As Range
Set TheRng = Range("A2", Range("A" & Rows.Count).End(xlUp))
Set TheFoundCell = TheRng.Find(What:="The Value", LookAt:=xlWhole)
MsgBox TheFoundCell.Address(0, 0)
End Sub
"Angeles" wrote in message
...
Hi , I am using this formula for getting the last row with values

ws.Cells(Rows.count, rng.Column).End(xlUp).row

Now how can I look for some value in that range ?

Thank you in advance.