Hi Garry,

This IdList has me stumped. I am not understanding how to make that
list.


.Activate: sID = .Range("IdList").Text

Once it exists, I presume it holds all the items that are to be
looked up on all the sheets. So instead of looping through the
columns G on each sheet, the code can refer to the elements within
that named range for the search items??

Howard

In A1 on "Instructions":
Type abc123,def456,ghi789

In the namebox (left of FormulaBar):
With A1 selected:
Type instructions!IdList and hit 'Enter'

Run the code as posted if you've added named ranges for the search
columns. Otherwise, add those names on each sheet that contains search
data, then run the code. Optionally (not recommended), modify the code
to use UsedRange.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion