Worksheets not calculating

[CDelSignore]

I'm using Excel 2010 and trying to one-button automate updating a spreadsheet. The button should refresh two tables from outside (networked) workbooks and then calculate worksheets in the open workbook, in a specified order.
Here is my macro the button is linked to:

Sub Workbook_UpdateAll()​

ActiveWorkbook.RefreshAll​

MsgBox "Done Refreshing Data and OEE Sheets"​

ActiveWorkbook.Worksheets("Calculation Sheet").Calculate​

MsgBox "Done Calculating Calc Sheet"​

ActiveWorkbook.Worksheets("Production Numbers").Calculate​

MsgBox "Done Calculating Production Numbers Sheet"​

ActiveWorkbook.Worksheets("Production").Calculate​

MsgBox "Done Calculating Production Sheet"​

End Sub
​

At this time, the two tables refresh as intended, but none of the worksheets calculate. The calculation sheet updates last lines of data on the Data and OEE tables, and lists out arrays that the Production Number and Production worksheets use as part of Indirect functions. The messageboxes come up, but the worksheets don't calculate. The order of calculation is important.

Any idea what's going wrong?

 

[CDelSignore]

Update: I recorded a Macro and got the following:

Sub UpdateAll()
' Refreshes linked tables and calculates sheets in proper order
​

ActiveWorkbook.RefreshAll
Sheets("Calculation Sheet").Select
ActiveSheet.Calculate
Sheets("Production Numbers").Select
ActiveSheet.Calculate
Sheets("Production").Select
ActiveSheet.Calculate
Sheets("TableOfContents").Select​

End Sub​

When I recorded the Macro, it performed exactly as I wanted it to. I copied the code and closed the file (without saving). When I reopened, I replaced the code (listed in the opening post) with the new code. It refreshed but did not calculate.

Can someone explain what's going wrong? I'd be close to pulling my hair out, but I'm bald and not touching the beard.

Update #2 ... if I run the Macro a second time, it calculates as desired.