This macro to split up strings is written to deal with the first row only.
Only column A has data, but the number of rows will vary. There are no gaps.
Please could you modify the code so that it loop through all rows. I have tried to do this and have not succeeded.
Thanks.
Sub Split() Dim txt As String Dim i As Integer Dim FullName As Variant txt = ActiveCell.Value FullName = Split(txt, "ADD") For i = 0 To UBound(FullName) Cells(1, i + 1).Value = FullName(i) Next i End Sub