Excel VisualBasic Script

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