Concatenate with style

[Abdul]

Wow nice, Thanks once again for your quick response,
one little problem is there, if any cell contain a number (value) it shows run time error 1004, and if given range contains more than 230 characters VBA not works the destination cell (A3) will become blank.

[DocAElstein]

Hello Abdul

...if any cell contain a number (value) it shows run time error 1004

This change seems to overcome that problem:
Change

.Characters(Position, Len(Cell.Value)).Text = Cell.Characters(1, Len(Cell.Value)).Text

to

.Characters(Position, Len(Cell.Value)).Text = Cell.Value

---

... if given range contains more than 230 characters VBA not works the destination cell (A3) will become blank

I do not understand this problem.

Can you provide a sample to demonstrate the problem?
I will then investigate further

Alan

[Abdul]

I do not understand this problem.

Can you provide a sample to demonstrate the problem?
I will then investigate further

Alan

Please check the attached file,