Macro Add line break after character

Hello,

I think I have a fairly simple problem but can't find the solution. I have a column full to text strings. Each of the text strings has multiple 'substrings' of text seperated by a ";" that I would like displayed on a new line in the same cell. I know I can manually add a line break with ALT+Enter. How do I write a macro to search the entire column and add a line break (I think its "chr(10)") after each ";"

Example:
Current
In Cell A1:
Roses are red; Violets are blue; I got nothing;

In Cell A2

Another fake line; why aren't I creative?

Desired
In Cell A1
Roses are red
Violets are blue
I got nothing

In cell A2
Anotehr fake line
why aren't I creative?

***
Thanks in advance!! (note, I don't care if the ";" is replaced by the line break or if the line break is added afterwards...

You can do it in one operation using Find & Replace. Highlight the cells that you want to change (or the complete column), then CTRL-H. Then in the Find What box type "; " without the quotes (i.e. semicolon followed by a space). In the Replace with box type a semicolon followed by CTRL-J, then click Replace All. You may need to adjust your column width.

Hope this helps.

Pete

Actually I'm finding this script fixes only some of the cells. I'm baffled by this... any thoughts on how I could write it better?