Loop that finds blanks, then subtotals values into different column
Hi,
subtotal of what?
empty cells you can find using this:
dim emptycells as range
emptycells=intersect(range("e:e"),activesheet.used range).SpecialCells(xlCellTypeBlanks)
Regards,
Ivan
|