Delete lines after a bullet

[cdmcnamara]

Hi,

I am attempting to write a macro that given a range of cells goes into each cell and deletes the text after the first bullet. An example of this would be:

The original cell contains:
---------------------

• The company had revenues of $100 mm in 2008
• The company is located in Mountainview, CA
• The company CEO is Eric Schmidt

---------------------

Upon executing the macro the cell is reformatted to:
---------------------

• The company had revenues of $100 mm in 2008

---------------------

Thanks in advance!