execute code in all selected cells

Hi Folks

I want to add a line "Chr(10)" at the beginning and end of all the selected cells.
Here the code i am trying:

Please Login or Register  to view this content.

When selecting 3 cells, it adds 3 lines before and after the tekst in the last cell in the selection;
not the request one line in front and at the end of the text in every cell.

Must be simple, but I can't see it.
Any help? Thx in advance

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Perfect - thanks.