Sub foo2() Dim t As Long On Error GoTo NotFound t = Application.WorksheetFunction.Match(Worksheets("Sheet1").Range("A1"), Worksheets("Sheet2").Range("A:A"), 0) MsgBox "Found Exit Sub
NotFound: MsgBox "Not found" End Sub