Formula or macros to remove double spacing and special character

Hi,

I need help with a quick way to remove double spacing, extra spaces at beginning and end of text and also replace any special character with a space.

I have attached an example of bad data in column A and Column B shows how i would like it.

Is there a Formula or macros to help cleansed the data quickly?

Many thanks guys,

Mike