Adding domain name to email using VBA

[sgw_73]

Hi - hopefully this is straightforward.

I have a macro that sends an email from excel with a specific sheet of the workbook as an attachment. The macro prompts the user to input the email address to send the sheet to. Given that the email will always be sent to the same domain name i.e. the "@companyname" part of the email will always be the same. Is there a way I can code the macro to automatically add this so all the user needs to do is add the recipients name in the prompt box rather than their full email address?

Thanks.