Thread: Problems with For Next...

Hi
(sorry for my english) I got a macro, but not run when i put some code in there...
this is my code

*****************

Function Wlookup(wLookup_array As Variant, wTable_array As Range, wCol As Integer, wType As Boolean)

Dim i As Range

For Each i In wLookup_array

    Dim Val As String
    Val = WorksheetFunction.VLookup(("*" & i.Value & "*"), wTable_array, wCol, wType)
    
    If Not Val Is Nothing Then
    Wlookup = Val
    Exit For
    End If

Next i

Wlookup = Val

End Function

i dont know why not loop with

Dim Val As String
    Val = WorksheetFunction.VLookup(("*" & i.Value & "*"), wTable_array, wCol, wType)"

Here is the file...
http://www.excelforum.com/attachment...1&d=1278012135

I really appreciate any help...

Try this variation

Function Wlookup(wLookup_array As Variant, wTable_array As Range, wCol As Integer, wType As Boolean)
Dim Val As Variant
Dim i As Range

For Each i In wLookup_array
    Val = InStr(wTable_array.Value, i.Value)
    
    If Val > 0 Then
    Wlookup = i.Offset(0, wCol)
    Exit Function
    End If

Next i

Wlookup = "err"

End Function