Thank you Tom; but I’m afraid that is too advanced for me (I don'
really master DIM...); my macro with your lines -as ssuch- doesn’
work.
Leave it at that; I cannot ask you to educate me from scratch now!

But just in case you have nothing better to do, what I’m trying is (i
a macro for book keeping) search the column of the expense items (C
for rows headed “Subtotal ”; and for each of these, draw a line al
across the page (at the top of the following row) to mark the beginnin
of a new batch of items for the next subtotal.

At present I do it like this (which is slow indeed)
-----------------------------------------------------------
Do While ActiveCell < "Grand Total" ‘ this is the last row i
my list
Cells.Find(What:="Subtotal ", After:=ActiveCell,…).Activate
ActiveCell.Offset(1,-2).Select.
ActiveCell.Range("A:G").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous…
End With
Loop
------------------------------------------------------------

But, as I said, don’t go into it if you’re busy. It’s up to me to lear
DIM . Thanks.
AC

--
ac
-----------------------------------------------------------------------
aca's Profile: http://www.excelforum.com/member.php...fo&userid=2593
View this thread: http://www.excelforum.com/showthread.php?threadid=54624