How do I Sum and make result bold

[Andrewk1]

Newbie here. I have some code to sum groups of numbers and enter the result underneath each group. I can't figure out how to show the results in bold. Any suggestions please?

For Each NumRange In Columns("G").SpecialCells(xlConstants, xlNumbers).Areas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
c = NumRange.Count
Next NumRange

 

[MickG]

Try:-

With NumRange.Offset(NumRange.Count, 0).Resize(1, 1)
        .Formula = "=SUM(" & sumAddr & ")"
        .Font.Bold = True
  End With

 

[Andrewk1]

Thanks MickG.
That is fantastic.

 

[MickG]

You're welcome