Dim Res as Variant
Dim Sh as Worksheet
Dim bRes as Boolean
For each Sh in Workbook
Res = Application.VLookup(sh.Name, SheetName,2,0)
if not iserror(Res) then
bRes = Res

end if

Next


--
Regards,
Tom Ogilvy



"ExcelMonkey" wrote in message
...
I have a 2D array with text strings (sheet names) in
column 1 and boolean values (1 or 0) in column 2. I want
to be able to do a lookup of the boolean values for each
sheet within the sheet name array while in a For Each
Loop.The idea being that I will do search based on name
propterty of the sheet that I am looping through.

For each Sh in Workbook
Lookup boolean in column 2 of SheetName Array based on
sh.Name
Next

Not sure how to use lookups in VBA