Excel VisualBasic Script

Sub sumDemo()
     MsgBox WorksheetFunction.Sum(Sheets("Sheet1").Range(_
                                Sheets("Sheet1").Range("A1"), _
                                Sheets("Sheet1").Range("A10")))
End Sub