Formatar texto para superior ou inferior à linha - JJoão (03/2002)

Coloque um botão personalizado para cada macro numa das barras de ferramentas, estas macros puderão ser colocadas num suplemento ou num livro de pessoal de macros.
As macros ligam e desligam a respectiva formatação, e incidem sobre as células seleccionadas.

Sub acima()
      Dim Celula As Range
      For Each Celula In Selection
          Celula.Font.Superscript = Not Celula.Font.Superscript
      Next
End Sub

Sub abaixo()
      Dim Celula As Range
      For Each Celula In Selection
          Celula.Font.Subscript = Not Celula.Font.Subscript
      Next
End Sub

Sub sombra()
      Dim Celula As Range
      For Each Celula In Selection
          Celula.Font.Shadow = Not Celula.Font.Shadow
      Next
End Sub