This may help you

http://www.ozgrid.com/VBA/VlookupAllSheets.htm

Regards