select eod as home complete all hyperlinks then go to vba on eod sheet change first dropdown to eorksheet and 2nd to follow hyperlink

code
linkto = target.subaddress
zor = instr(1, linkto, '! ')
if zor > 0 then
mysheet = left(linkto, zor -1)
worksheets(mysheet) .visible = true
worksheets(mysheet) .select
myaddr = mid(linkto, zor +1)
range(myaddr) .select
worksheets(mysheet) .range(myaddr) . select
end if

code back for each sheet

worksheets('eod') .select
target.parent.worksheet.visible = false

Alvinzor Flores

http://www.poemhunter.com/poem/removal-of-duplicates/