Hi all,

Sorry for my excessive posts.. I've been saving all these queries up for ages!!

I have a macro to email a worksheet to 2 different contacts... but it currently sends it in two emails.. where I just want it as one.

Please see my code below and make ammendments as appropriate.

Sub Email()

Dim custe As String
Dim toe As String
Dim strRecipients As String

custe = Range("G29")
toe = Range("G34")


Response = MsgBox("Sending to " & custe & " and " & toe, vbOKCancel)
If Response = vbCancel Then Exit Sub
Worksheets("Agreement").Copy
senderID = Worksheets("Agreement").Range("G32").Value

mailsubject = "Apprentice Output Agreement"
ActiveWorkbook.SendMail Recipients:=custe, Subject:=mailsubject
ActiveWorkbook.SendMail Recipients:=toe, Subject:=mailsubject
MsgBox ("Email has been sent, thank you.")
ActiveWorkbook.Close SaveChanges:=False

End Sub
Thanks again,

Lee