Detalhes de vba texto macro insere sobrescrito ultima letra celula ativa

SaberExcel - o site das macros

Sobrescrever a última letra da palavra.
Essa macro do Aplicativo Microsoft Excel VBA, sobrescreve última letra de uma palavra em uma determinada célula, mas nesse caso fica sensibilizada a célula ativa.

Sub Sobrescrever_ultima_letra()
vBusca = Len(ActiveCell.Value)
ActiveCell.Characters(Start:=vBusca, Length:=1).Font.Superscript = True
End Sub

 Aplicativo Microsoft Excel VBA --(( SaberExcel ))--