State about BOLD property

     

     

     

    Font Properties

     

    Private Sub CommandButton1_Click()
    Range("A1").Value = Date
    With Range("A1").Font
    .Size = 25
    .Bold = True
    .Color = RGB(0, 224, 224)
    .Name = "Arial"
    .Subscript = False
    .Strikethrough = False
    .Underline = xlNone
    End With
    End Sub