VBA/Excel/Access/Word/Excel/SUM
Enters a value in 10 cells in a column and then sums the values
<source lang="vb">
Sub EnterInfo()
Dim i As Integer Dim cel As Range Set cel = ActiveCell For i = 1 To 10 cel(i).Value = 100 Next i cel(i).Value = "=SUM(R[-10]C:R[-1]C)"
End Sub
</source>
Reference worksheet and range by name
<source lang="vb">
Sub ReferAcrossWorksheets1()
MsgBox WorksheetFunction.Sum(Sheets("Sheet1").Range( _ Sheets("Sheet1").Range("A1"), Sheets("Sheet1").Range("A10")))
End Sub
</source>
Use with statement with worksheet
<source lang="vb">
Sub ReferAcrossWorksheets2()
With Sheets("Sheet1") MsgBox WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A10"))) End With
End Sub
</source>