Adding Arg's to Application.worksheetfunction.sum()

[OscarAlberto]

Is it at all possible to programatically add arguments to the application.worksheetfunction.sum every time my codes cycles through a Do-Until-Loop????

Thanks in advance.

 

[TonyJollans]

Hi OscarAlberto,

It seems like a slightly odd way to do things but, yes, it can be done, at least indirectly, by, for example, adding areas to the range being summed.

Dim tjRange As Range
Dim x As Integer

Set tjRange = Sheets!Sheet1.Range("a1")

For x = 2 To 7
    Set tjRange = Union(tjRange, Cells(x, x))
    MsgBox WorksheetFunction.Sum(tjRange)
Next

Enjoy,
Tony