Just add 1

LASTROW = Cells(Rows.COUNT, "A").End(xlUp).Row+1
set rng = Range("A1:AC" & LASTROW)

or
LASTROW = Cells(Rows.COUNT, "A").End(xlUp).Offset(1, 0).Row
set rng = Range("A1:AC" & LASTROW)

Glad it worked!!!
--
steveB

Remove "AYN" from email to respond
"waynehinds" wrote
in message ...

Thanks for advice. That statement worked fine.

What if I wanted to put a different outline starting with the row below
it.

For example I search for Grand Total and in the row below that and
always in column s i want to outline five boxes.


--
waynehinds
------------------------------------------------------------------------
waynehinds's Profile:
http://www.excelforum.com/member.php...o&userid=25331
View this thread: http://www.excelforum.com/showthread...hreadid=388111