select eod as home complete all hyperlinks then go to vba on eod sheet change first dropdown to eorksheet and 2nd to follow hyperlink <br /> <br />code <br />linkto = target.subaddress <br />zor = instr(1, linkto, '! ') <br />if zor > 0 then <br />mysheet = left(linkto, zor -1) <br />worksheets(mysheet) .visible = true <br />worksheets(mysheet) .select <br />myaddr = mid(linkto, zor +1) <br />range(myaddr) .select <br />worksheets(mysheet) .range(myaddr) . select <br />end if <br /> <br />code back for each sheet <br /> <br />worksheets('eod') .select <br />target.parent.worksheet.visible = false<br /><br />Alvinzor Flores<br /><br />http://www.poemhunter.com/poem/removal-of-duplicates/
