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