Wrap Text Property
Private Sub CommandButton1_Click() Range("A1:A14").WrapText = True End Sub Private Sub CommandButton2_Click() Range("A1:A14").WrapText = False End Sub