I have several workbooks that are set up to automatically send on my behalf, however because the set of people that I need to send THIS particular information to, changes all the time, so I need the ability to complete the workbook, hit send and it stops at just putting it into the body of the email along with the message and subject line. This is what I have currently, but I haven't figured out how to make it stop before it sends so I can add a specific recipient and not a pre-determined one:

Sub Button4_Click()
Dim Sendrng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sendrng = Selection
With Sendrng
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "Removed message here"
With .Item
.To = "removed_email_here"
.CC = ""
.BCC = ""
.Subject = "removed subject line here"
.send
End With
End With
End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False

End Sub