 vbCrLf & _         "<p>" & Sheets("Email Settings").Cells(0, 0).Text & _         "<br>" & Sheets("Email Settings").Cells(0, 0).Text & _         "<br>" & Sheets("Email Settings").Cells(0, 0).Text & _         "<br>" & Sheets("Email Settings").Cells(0, 0).Text & 