Reference worksheet and range by name
Sub ReferAcrossWorksheets1() MsgBox WorksheetFunction.Sum(Sheets("Sheet1").Range( _ Sheets("Sheet1").Range("A1"), Sheets("Sheet1").Range("A10"))) End Sub