Excel 2007 : VLOOKAllSheets formula return 1 or empty cell

Hello,

I create an UDF in order to use this formula =List.xlsm!VLookAllSheets.VLOOKAllSheets(B2,A:A,1,FALSE)

If the data is found I want "1" and if the data is not found I want an empty cell. How can I change the formula ?

Here is the code

Thanks for your help.

Function VLOOKAllSheets(Look_Value As Variant, Tble_Array As Range, _
    Col_num As Integer, Optional Range_look As Boolean)
     
     ''''''''''''''''''''''''''''''''''''''''''''''''
     'Written by OzGrid.com
     
     'Use  VLOOKUP to Look across ALL  Worksheets and stops _
    at the first match found.
     '''''''''''''''''''''''''''''''''''''''''''''''''
    Dim wSheet As Worksheet
    Dim vFound
     
    On Error Resume Next
     
    For Each wSheet In ActiveWorkbook.Worksheets
        With wSheet
            Set Tble_Array = .Range(Tble_Array.Address)
            vFound = WorksheetFunction.VLookup _
            (Look_Value, Tble_Array, _
            Col_num, Range_look)
        End With
        If Not IsEmpty(vFound) Then Exit For
    Next wSheet
     
    Set Tble_Array = Nothing
    VLOOKAllSheets = vFound
End Function

Maybe changing this at the end will do it:

    Set Tble_Array = Nothing
    If Not IsEmpty(vFound) Then
        VLOOKAllSheets = 1
    Else
        VLOOKAllSheets = ""
    End If
End Function