Or how about
[vba]On Error Resume Next
x = WorksheetFunction.VLookup(rngLookup, rngSource, i, 0)
MsgBox Err
If Err = 1004 Then
MsgBox "Problem"
Exit Sub
Else
rngDestination = x
On Error GoTo 0
End If
[/vba]
Or how about
[vba]On Error Resume Next
x = WorksheetFunction.VLookup(rngLookup, rngSource, i, 0)
MsgBox Err
If Err = 1004 Then
MsgBox "Problem"
Exit Sub
Else
rngDestination = x
On Error GoTo 0
End If
[/vba]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'