I got it working.

Basically in the below part of the code I had it referenced to cell G3, which had an email address in. I had two workbooks open at the same time when trying to run the code and I guess that confuses the code because it was unsure which workbook it had to go into cell G3 and collect the email address. I closed the other workbook and ran the command button successfully.

.To = "xxxxxxxxxxxx"