Tenía una macro que funcionaba perfectamente en excel 2003 y ahora me da error "1004" en excel 2010

Ante todo, gracias por vuestra ayuda. Mi problema es el siguiente. Tenia una macro para enviar una hoja de excel como libro adjunto por mail. Esta macro funcionaba perfectamente en excel 2003, pero al ejecutarla en excel 2010 me da un error "1004". Sí que me permite ejecutarla la primera vez, pero si quiero enviar una segunda hoja es cuando me da el error. La macro es la siguiente:

Sub Enviarhojamail()
ActiveSheet.Copy
With ActiveWorkbook
ActiveSheet.SaveAs Filename:=ActiveSheet.Name
Application.Dialogs(xlDialogSendMail).Show
strFile = ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
Kill strFile
End With
End Sub

Alguna idea? Muchas gracias,