Sub jhonnybravo(idx As Long)
Dim rw As Long
On Error Resume Next
rw = WorksheetFunction.Match(idx, Worksheets("XX").Cells(1, 1).EntireColumn, 0)
If Err.Number = 1004 Then
    MsgBox "Der gesuchte Wert " & idx & " konnte nicht gefunden werden!", _
      vbCritical, "Suche"
    rw = 0
End If
On Error GoTo 0
If rw Then
    If ActiveSheet.Name = Worksheets("XX").Name Then Cells(rw, 1).Select
    MsgBox Worksheets("XX").Cells(rw, 2).Value, vbInformation, idx
End If
End Sub