Hi Norman,
Maybe the code is confused by some characters included in column A data.
Because when I reduced the size and delete records including characters that
are not present in Latin alphabet the code split "some" of the data
correctly. Thus I think I should concentrate more on the list. Thanks for
answering my questions step by step.
Regards



"Norman Jones" wrote in message
...
Hi Cheker,

there is a fast flicker on the screen when the macro is executed

At the top of the macro, after the last Dim statement, insert the new
line:

Application.ScreenUpdating = False

At the foot of the macro, before the End Sub line, insert the new line:

Application.ScreenUpdating = True

This should have the incidental advantage of improving speed of
operation.


finishes the macro with the "last" item display splitted on the
worksheet.

The selection is not changed by the procedure but I am not sure what you
mean. Perhaps you could explain in greater detail.

In my tests, the procedure, as requested, splits all data in column A,
resulting in name and surnames in column A and email addresses in column
B.