Okay,
Nowe that I've told you what you don't want to hear, here's something a bit closer to your reality.
Sub SendEmail(From As String, SendTo As String, Subject As String, _
EmailText As String, Optional AttachmentPath As String, _
Optional Attachment As String, Optional CC As...