Open Multiple Excel files in Excel2013

This Sub works fine in Excel2003. (It is a Sub of file Tables2013.xlsm)

In Excel2013, it hangs after opening the Pivots.xlsm file. Control does not return to the Sub.

What do I need to do to make it happen in Excel2013 VBA?

Thanks for looking at this for me.

Gary


-----------------------------------------------------------------------------------------
Sub OpenFiles()
' This Procedure opens the two required Excel intermediate files
'
On Error Resume Next

ChDir "P:\Firehouse Software\PERFORM"
Workbooks.Open ("P:\Firehouse Software\PERFORM\Pivots.xlsm")
Workbooks.Open ("P:\Firehouse Software\PERFORM\Reports.xlsm")

End Sub
------------------------------------------------------------------------------------------

You are right on here. There was an errant auto_open sub left over from Excel2003 days causing the problem. Deleted it and sub works now.

Many thanks!!