Excel VisualBasic Script

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