Excel VisualBasic Script

Sub range()
    WorksheetFunction.Sum (Worksheets("Sheet2").range(Worksheets("Sheet2"). _
        range("A1"), Worksheets("Sheet2").range("A7")))
    With Worksheets("Sheet2")
        WorksheetFunction.Sum (.range(.range("A1"), .range("A7")))
    End With
End Sub