VB排版excel错误

Set xl = New Excel.Application
      xl.Visible = True      '设置EXCEL可见
      xl.Workbooks.Add
      xl.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\exportExcel.xls") '打开网页保存的EXCLE文档
      Rows("1:1").Select '选择并删除第一列
      Selection.Delete Shift:=xlUp
      Dim rng    As Range '赋予rng变量Range(单元格)属性
      Dim i    As Integer, j      As Integer '计算exportExcel文件中的行、列数
      Set rng = xl.ActiveSheet.UsedRange
      i = rng.Rows.Count
      j = rng.Columns.Count
      Debug.Print i
      Debug.Print j

      EXCELAPP.ActiveSheet.Range("A1:P99").Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin
执行后能完成排序，但是弹出窗口提示“实时错误424，要求对象”，请问这个怎么改

---

Private Sub Cdload_Click()
Set xl = New excel.Application
      xl.Visible = True      '设置EXCEL可见