Hi,

I wish to set a "total" to the Sales column. Then bold the "total"
amount. May I know the command? Please bear in mind that the row is
not fixed for the total amount cell and it depends on the items being
sold. Thank you.


Item Sales
A 10
B 11
C 12

From the Data menu
Select Subtotals and follow the prompts.

This will generate a subtotal and a grand total in bold letters for you
automatically without the need of any coding

Michael Arch.

"Jentan" wrote:

Hi,

I wish to set a "total" to the Sales column. Then bold the "total"
amount. May I know the command? Please bear in mind that the row is
not fixed for the total amount cell and it depends on the items being
sold. Thank you.


Item Sales
A 10
B 11
C 12

Michael's right, but if you must:


Sub test()

Set iEnd = Cells(Rows.Count, 2).End(xlUp)

With iEnd.Offset(1, 0)
.Formula = "=SUM($B$2:" & iEnd.Address & ")"
.Font.Bold = True
End With

End Sub


--
Dan