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" <anonymous@discussions.microsoft.com> wrote in message
news:19c301c50f98$9e427bd0$a601280a@phx.gbl...
> 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