Email Macro Problem

I have a macro that sends a copy of the workbook to our secretary. We've put this code in
ActiveWorkbook.SendMail recipients:="Jane"
However, when we click on the button the email shows up w/out her name in the to box. We type it in and she gets it twice. (We can put someone elses name in and still she will get it too). What are we doing wrong?

This is the entire code
Sub SendSheet()

'Sends a copy of single Worsheet as email
Application.ScreenUpdating = False
Sheet1.Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.SendMail Recipients:="wendyb"
Application.ScreenUpdating = True
End Sub