Private Sub CommandButton1_Click()
   Selection.Font.Bold = True
End Sub