Language Basics VisualBasic Script

Sub sheetDemo()
     With Sheets("Sheet1")
           MsgBox WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A10")))
     End With
End Sub