Macro para buscar verticalmente en todo el libro

El siguiente código no funciona cuando la hoja con los datos buscados está en la primera hoja; solo funciona cuando los datos buscados está de último en el libro.

Function VLOOKAllSheets(Look_Value As Variant, Tble_Array As Range, _
Col_num As Integer, Optional Range_look As Boolean)
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

Por favor necesito buscar datos en todo el libro pero que la hoja con los datos buscados esté al inicio del mismo y no de errores de referencia circular.

En concreto una función de vlookup pero que busque en todas las hojas del libro un valor y retorne el valor de cierta columna. Osea un vlookup para todo el libro

Gracias