Debugging new function code - vlookallsheets

[twosteporr]

I've been trying to get this function to work but with no luck. Can anyone tell me what might be wrong with it? Also, how do I add this to my list Excel formulas? I've tried to save it as an Add-In but it doesn't take.

Sub VLOOKAllSheets()

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 Sub


Thanks in advance for any help.

Bryan

[shg]

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.