Private Sub CommandButton2_Click()
  Selection.Font.Size = 21
End Sub