To get the current sheet name into a cell:
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,999)
Assuming this is in cell A1, your other formulas would then be something
like:
=INDIRECT("Calc!"&A1&":"&A1)
This would reference Calc!E:E
--
Best Regards,
Luke M