Use a With...End With construct with fully qualified properties
Sub sheetDemo() With Sheets("Sheet1") MsgBox WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A10"))) End With End Sub