Loop through range, applying bold formatting to chara before first line break in each cell

I am trying to put together a macro that loops through a range of cells and apply bold formatting to all characters appearing before the first line feed within each cell.
The macro below seems to work only on the first cell in the range ("A5") and I wonder if it has something to do with the applicability of "ActiveCell" in such a context.

Hope somebody can point out what I am missing here .

Thanks!

Please Login or Register  to view this content.

Thanks, I knew it was going to be something really obvious :p.