Do Loops
 

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.

Do Loops
 

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

--
Regards,
Tom Ogilvy



wrote in message
...
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.