Hi,
You may try out this few lines code..mentioned as below:
Sub Search_Range()
For Each Cell In Range("b1:b19")
If Cell.Text = Range("a1").Text Then
MsgBox "Value found"
Cell.Select
End If
Next
End Sub
--
gajendra_vba
------------------------------------------------------------------------
gajendra_vba's Profile:
http://www.excelforum.com/member.php...o&userid=29935
View this thread:
http://www.excelforum.com/showthread...hreadid=496615