dividere i dati di una cella

grazie in anticipo....

devo compilare dei bolettini postali nei quali il massimo dei caratteri stampabili è 46 divisi su due righe, avrei l'esigenza di far scrivere i dati eccedenti i 23, inseriti nella colonna A nella colonna b, esempio scrivendo un nome lungo 30 caratteri compresi gli spazi in una cella della colonna A automaticamente dopo l'invio dovrebbe spostare i 7 eccedenti nella cella a fianco della colonna B,

ciao

questo lavoro ne' possibile pero' lo puoi fare solo con VBA

esempio da inserire nella pagina

---

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Dim stringa As String
If Len(Target) > 23 Then
stringa = Target.Value
Cells(Target.Row, Target.Column) = Mid(stringa, 1, 23)
Cells(Target.Row, Target.Column + 1) = Mid(stringa, 24, 46)
End If
End Sub

---

questa va da a1 ad a 10

allego il file di prova

GRAZIE