Private Sub CommandButton4_Click()
  Selection.Font.Bold = Not Selection.Font.Bold
End Sub