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