replace sub auto open with this:

Sub auto_open()
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
ThisWorkbook.Worksheets(i).OnEntry = "CopyFormulaResults"
Next
End Sub