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
------------------------------------------------------------------------------------------