Excel Macro to save, email and display messagebox

[CorpusSpongiosum]

I have assigned this code to a control button on a worksheet. It saves the worksheet and emails it but no message box is displayed. Does anyone know why and how to make the message box appear once the worksheet has been emailed?

Thanks

Sub Save()
'
' Save Macro
' Macro recorded 18/01/2002 by Craig
'

'
ActiveWorkbook.Save
End Sub
Sub Email()
'
' Email Macro
' Macro recorded 18/01/2002 by Craig
'

'
mailname = "Dionysius@btinternet.com"

ActiveWorkbook.SendMail Recipients:=mailname, Subject:="GDOCS Rota Submission", ReturnReceipt:="True"

End Sub

Sub Message()

MsgBox "Congratulations your rota bid has been submitted sucessfully. Have a nice day!"

End Sub

 

[Mark O'Brien]

If that is your whole code, I don't see how more than one module runs. You would have to call each module from somewhere. To directly answer your question you would have to add a line of like :

<pre>
Call Message
</pre>

To make the message show after the email has been sent.

HTH