Do Loops

G

Guest

I want to make a Do while loop for keeping a running total
of account. I am writing a program to create an automated
capital budget. I want to keep a running total of the
different sub accounts, then when it come to an empty cell
in the sub account number line, to print the total to
another worksheet.
 
T

Tom Ogilvy

do while not isempty(activecell)
dblTot = dblTot + ActiveCell.Value
ActiveCell.Offset(1,0)
Loop
worksheets("Sheet1").Range("B9").Value = _
dblTot
 
Top