Macro to remove extra spaces in an Excel File

Hi,

I need a macro to remove extra spaces in an Excel file.
Different cells may have additional spaces in the text and may also have additional spaces at the end of a sentence e.g

Example
Dublin Zoo is much more than a fun-filled, stimulating day out for all the family... it’s a place to learn about wild animals, especially those which are endangered. The Zoo is a registered charity – your visit will help maintain Dublin Zoo to a high standard, improve the Zoo and contribute to conservation programmes. The zoo etc

The macro will have to work in all cells within the spreadsheet.

Any help would be greatly appreciated.

Thank you very much!