麻烦高手帮忙解答下，模块是不是重复调用出现问题了！

Private Sub Command2_Click()
 Dim EXAPP As Excel.Application
 Dim WB As Excel.Workbook
 Dim sht As Excel.Worksheet
 Set EXAPP = CreateObject("excel.application")
 Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
 Set sht = WB.Worksheets("Sheet1")
Range("O2").Select
    ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R2C14:R643C14)"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O643"), Type:=xlFillDefault
    Range("O2:O643").Select
红色字体提示错误，麻烦高手解答下，谢谢