Sending active workbook as email

Hi,

I am trying to develop an application that will set up an email to send the active workbook. I am using the following code but it sends the email straight away, whereas I want to review the email and possible add to it before it is sent. Is there a way for me to set the email up but not send it?

My current code is:

Dim emailaddress As String
Range("B1").Select
emailaddress = Selection
ActiveWorkbook.SendMail Recipients:=emailaddress


End Sub

Cheers
Alan