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.
[COLOR=blue]'With a small modification by Markmzz[/COLOR]
'''''''''''''''''''''''''''''''''''''''''''''''''
Dim wSheet As Worksheet
Dim vFound
[COLOR=blue]Application.Volatile True[/COLOR]
On Error Resume Next
For Each wSheet In ActiveWorkbook.Worksheets
[COLOR=blue]If wSheet.Name <> "Master" Then[/COLOR]
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
[COLOR=blue]End If[/COLOR]
Next wSheet
Set Tble_Array = Nothing
VLOOKAllSheets = vFound
End Function
