Hi all

I have pieced this together, however I keep getting the 6 appear after pressing yes and 7 after no. I have looked up online and its related to the results from yes or no message box.

I just get stop them.

Any ideas?

Help will be greatly appreciated

Thanks
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim MSGEMail As Long
    
Sheets("Cover Sheet").Select

    MSGEMail = MsgBox("Remediation Report is now fully complete" & vbCr & vbCr & "Would you like to email the report back to the Asset Quality Manager?", vbQuestion + vbYesNo)

 'Create Email once all complete
 If Sheets("Cover Sheet").Range("I11").Value = "Section Complete" And Sheets("Cover Sheet").Range("I13").Value = "Section Complete" _
 And Sheets("Cover Sheet").Range("I15").Value = "Section Complete" And Sheets("Cover Sheet").Range("I17").Value = "Section Complete" And Sheets("Cover Sheet").Range("I19").Value = "Section Complete" Then
 
 MsgBox MSGEMail
 End If
     
 If MSGEMail = vbYes Then
 Call Email_from_RM
 End If