Retrieve data using dropdown list using macro

Hi everyone I am looking for macro equivalent for this excel function =IF($A$2="","",INDIRECT("'"&$A$2&"'!"&ADDRESS(ROW(B1),COLUMN(B1))))

can anyone help? The sample sheet are on this page.
http://www.excelforum.com/excel-gene...down-list.html

thanks in advance.