Precisa dividir uma linha de texto em uma célula editável delimitada por sinais +

Question

Eu preciso de um código VBA para dividir uma linha de texto em uma célula editável deliminada por sinais + e depois colocar o texto dividido em uma coluna separadamente, mantendo a célula original inalterada. Também preciso que isso seja atualizado automaticamente quando eu mudar a célula. Examinei muitas postagens e não consigo encontrar uma que responda a essa pergunta.

Abaixo está o código que tentei até agora:

 Sub NameTest()

     Dim txt As String
     Dim i As Integer
     Dim FullName As Variant

     txt = ActiveCell.Value

     FullName = Split(txt, " ")

     For i = 0 To UBound(FullName)

         Cells(1, i + 1).Value = FullName(i)

     Next i

 End Sub

    

Answer 1

Public Sub NameTest1()

   Dim v As Variant

   v = Split(ActiveCell.Value2, "+")

   ActiveCell.Offset(0, 1).Resize(1, UBound(v) + 1) = v

End Sub