I suggest you put
Application.EnableEvents=False at the start of the Worksheet_Activate
and
Application.EnableEvents=True at the end of it

the problem is that when you open the workbook the Worksheet_ activate routine gets called and thi8s writes values out to the cells which will automatically trigger the worksheet_calculate every time a cell is written, ie many many time before the worksheet active subroutine has finished.