Soru Kalın yazı yazdırma hk.

[balanar]

With ActiveSheet
    .Name = "Toplam"
    For Each cb In .OLEObjects
        cb.Delete
    Next

    a = 2
    b = 3
    Do Until .Cells(b - 1, 1) = ""
        If .Cells(b, 1) <> .Cells(b - 1, 1) Then
            .Rows(b).Insert
            .Cells(b, "F") = "TOPLAM"
            .Cells(b, "G") = Application.Sum(.Range("G" & a & ":G" & b))
            a = b + 1
            b = b + 1
        End If
        b = b + 1
    Loop
End With

Merhaba, burada kalın işaretlediğim "TOPLAM" ve Application.Sum(.Range("G" & a & ":G" & b)) bunun hücreye kalın yazı olarak geçmesini istiyorum nasıl yapabilirim

 

[uzmanamele]

Merhaba

Sonuç yazdırdığınız hücreyi adresleyip Bold yapabilirsiniz.
Cells(b, "F").Font.Bold = True

Sub FontBoldTrue()
Range("A1") = "TOPLAM"
Range("B1") = 123.45
Range("A1:B1").Font.Bold = True
End Sub