If x_Select = True Then

            Cost_Center = Cells(9 + j, 2).Value
            x_Sheet = Cells(9 + j, 3).Value
            sentTo = Cells(9 + j, 4).Value
            sentCC = Cells(9 + j, 5).Value
            SubjectTitle = Cells(9 + j, 6).Value
            x_Title = Cells(9 + j, 7).Value
            
            
            
'====================================================================================================================
' End of Section 1 sets up the parameters for the preparation of the mail and the extraction of the requested tab
'====================================================================================================================
            
'====================================================================================================================
' Section 2: Save the requested tab in a new file and prepare the mail
'====================================================================================================================
                        

relativePath = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "_" & x_Sheet & "_Cost center overview"

Sheets(x_Sheet).Copy
ChDir ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=relativePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close False

Sheets("E-mail").Activate
                            
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
                    
'This is where we set-up the mail text including parameters from generator file (deadlines)
                    
strbody = x_Title & "<br><br>" & Cells(37, 2) & "<br>" & Cells(38, 2) & "<br>" & Cells(39, 2) & "<br><br>" & Cells(40, 2) & "<br>" & Cells(41, 2) & "<br>" & Cells(42, 2) & "<br><br>" & Cells(43, 2) & "<br><br>" & Cells(44, 2) & "<br>" & Cells(45, 2)
                    
With OutMail
.To = sentTo
.CC = sentCC
.Subject = SubjectTitle
.HTMLBody = "<p style='font-family:arial;font-size:13'>" & strbody & "<br>" & "</p>" & .HTMLBody
.Attachments.Add relativePath & ".xlsx"
.Display
End With
                        
Set OutMail = Nothing
Set OutApp = Nothing
                        
'====================================================================================================================
' End of Section 2: Save the filtered cleaned file and prepare the mail
'====================================================================================================================

Kill relativePath & ".xlsx"

End If
        
Next j

Application.ScreenUpdating = True

End Sub