Programming a formula to abbreviate text titles

Hi, I'm trying to abbreviate some titles to show only the first word using the LEFT and FIND formula with =LEFT(B2,FIND(" ",B2)-1). I can do it using the formula in the worksheet but don't know how best to programme this to run it as a bit of code. I attach my file showing the data I want to modify and a macro where I can put the equation into another cell and get the desired result. However, there must be a neater way to do this and directly edit and replace the current titles.

thanks for any help,

regards, Neil

Hi, thanks that works. The one improvement I'd like to make is to do it as a "one step process" replacing the current value in the cell. I can see that I could then copy and paste this into the original cell but is there a smarter way to do this so that the code replaces the original title with the abbreviated one - in one step? thanks, Neil

Works a treat, thanks, very much, Neil