Excel and Outlook become "NOT RESPONDING" when running Macro

I'm trying to run this macro below to send emails from Excel and it used to work but now it's getting stuck and making my Outlook and Excel freeze up. All it shows on the bottom of the Excel window is that it's "Saving" which I don't know why it's doing that. Can someone please help!

Please Login or Register  to view this content.