Error when select sheet for Excel file from Excel 2013 with visual basic

Question

Dim AppXL As Object
Dim MyWorkBook as Object
Set AppXL = CreateObject("Excel.Application")
Set MyWorkBook = AppXL.Workbooks.Open("E:\MyFile.xls)
AppXL.Sheets("Sheet1").Select
The above code run with no problem when use in machines with Excel 2007 and Excel 2010.
But when run in machine with Excel 2013,  error with "Out of Range" occur. Kindly advise for any solution.
TS Lim

Answer 1

With your highlight on the AppXL.Workbooks.Open, I have solved the problem by re-position the statements.
Below are the 2 situation which works in for Outlook 2007, 2010 and 2013
Situation 1, work for Outlook 2007 and 2010 but d not 2013
With AppXL  
    Set WorkBookFrom = AppXL.Workbooks.Open("E:\MyFile.xls")
Set WorkBookTo = AppXL.Workbooks.Open("E:\MyFile2.xls")
  WorkBookFrom.Activate
    .Sheets("Sheet1").Select
    .Range("A1:IV65536").Select
    .Selection.Copy
        WorkBookTo.Activate
    .Sheets("Sheet1").Select
    .Selection.PasteSpecial Paste:=-4163, Operation:=-4142, SkipBlanks:=False, Transpose:=False
    .Range("A1").Select
      WorkBookTo.Save
End With
Situation 2, work for Outlook 2007 and 2010 and  2013
With AppXL  
    Set WorkBookFrom = AppXL.Workbooks.Open("E:\MyFiel.xls")
  WorkBookFrom.Activate
    .Sheets("Sheet1").Select
    .Range("A1:IV65536").Select
    .Selection.Copy
Set WorkBookTo = AppXL.Workbooks.Open("E:\MyFile2.xls")
        WorkBookTo.Activate
    .Sheets("Sheet1").Select
.Range("A1").Select
    .Selection.PasteSpecial Paste:=-4163, Operation:=-4142, SkipBlanks:=False, Transpose:=False
      WorkBookTo.Save
End With
Thank you for indirectly  help me to solve the problem.
TS Lim