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