[kyle-c-]

first post so please go easy on me -

I have written a macro in VB within Excel to send a saved copy of the wokbook as an attachment in an email to predetermined addresses, this part is so far fine and working okay, however i now want to set the importance of the email to high when a certain priority is selected in the spreadsheet anyu help would be great, this is what i have so far...

Sub email()
On Error GoTo NotSent
ActiveWorkbook.SendMail Recipients:=Array("kyle.curran@baesystems.com"), Subject:="New RSPR Request"

MsgBox "Do Not Save Any Changes To This Document. Any problems contact EATF x54512."
Exit Sub

NotSent:
MsgBox Prompt:="This RSPR Request has not been sent. To send the request select Yes when the file has loaded."
MsgBox "Do Not Save Any Changes To This Document. Any problems contact EATF x54512."
End Sub

Thanks