O método Characters.Insert (Excel) limita o texto a 255 caracteres
É realmente impossível anexar mais de 255 caracteres em uma única célula pela macro VBA no MS Excel?
Código de amostra:
Option Explicit
Sub TestSub()
Dim L As Long
' Const str = "1" & vbLf
Dim i As Integer
Range("A1").ClearContents
Range("A1").WrapText = True
For i = 1 To 260 ' any number greatest than 255
L = Range("A1").Characters.Count
Debug.Print L
Range("A1").Characters(L + 1, 1).Insert ("A")
Next i
End Sub
Adicionado: É importante salvar a formatação anterior de caracteres na célula.