VBA Code to Save and Send current workbook

[A8L5S]

Hi,

I’m trying to create a VBA code to Save the current work book and then send to a specific e-mail address. I’ve managed to get it to attach the file to an e-mail but can’t seem to get the other bits to work at all. Below is what I am trying to achieve.

if sheet 1 O5 or R5 or U5 = “Not Started/Required” then

End Sub

If sheet 1 O5 or R5 or U5 = “Started – Incomplete Fields” then popup box comes up asking: “Are you sure you want to send?”

If No then

- Firstly Check to see if O5 on sheet 1 = “Started – incomplete Fields” if it does then change text for N3:N82 on sheet 1 to red
- Then to check to see if R5 on sheet 1 = “Started – incomplete Fields” if it does then change text for N3:N65 on sheet 2 to red
- Then to check to see if u5 on sheet 1 = “Started – incomplete Fields” if it does then change text for N3:N69 on sheet 3 to red

End Sub

Other wise it asks the user to save the file, file name is filled in using D2 on sheet 1. If the user changes this then D2 will need replacing with what it has been changed to

Then to e-mail the excel sheet to form@gmail.com using subject as Q2 on sheet 1 and body of e-mail with “Please find attached form”

Any Help would be much appreciated.

Regards

Aaron