Then Helmut right an additional line of code to find the bottom row and use
the cide the boys (assumption) gave you

ie
Range("a11").select
Selection.End(xlDown).Select
X=Activecell.Row

Then use the other stuff to make bold.
Aloha
Jeff

"Helmut" wrote in message
...
What I have is this:

Range("A11").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5,
6, 7, _
8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

I don't know "X". it is determined by the above sugtotal routine. where
the
subtotal row should be entirely bold.

"Bob Phillips" wrote:

No need for Entirerow

Rows(X).font.bold=true

Rows is the entire row


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"Per Jessen" wrote in message
...
Hi

Rows(X).entirerow.font.bold=true

where X is the row number.

Regards,

Per

"Helmut" skrev i en meddelelse
...
How can I have the entire ROW in the subtotal routine BOLD?