Please put code tags around your code excerpt.

Can you post a sample workbook?

I'd hazard a guess that this:

For Each R In Range("Table")
Result = Application.WorksheetFunction.VLookup(Name, R, ColoffSet, False)
T.AddItem Result
should be this:

Result = Application.WorksheetFunction.VLookup(Name, Range("Table"), ColoffSet, False)
T.AddItem Result
and lose the Next R loop.


Regards, TMS