hi Sugibala,
maybe this code helps you get closer to your solution:
Sub Main()
Dim oWS_Target As Worksheet
Dim oWS_Source As Worksheet
Dim rg_Target As Range
Dim rg_Found As Range
Dim sSrchItem As String
On Error Resume Next
Set oWS_Source = ThisWorkbook.Sheets(1)
Set oWS_Target = ThisWorkbook.Sheets(2)
Set rg_Target = oWS_Target.Columns(2).UsedRange
sSrchItem = "country" 'just an example - get your sSearchItem from where ever you need to
Set rg_Found = rg_Target.Find(sSrchItem).Offset(0, 1)
If Not rg_Found Is Nothing Then
MsgBox " found " & sSrchItem & ". your value is in " & _
oWS_Target.Name & " Cell " & rg_Found.Address
Else
MsgBox "no match with " & sSrchItem
End If
Set rg_Found = Nothing
Set rg_Target = Nothing
Set oWS_Source = Nothing
Set oWS_Target = Nothing
On Error GoTo 0
End Sub