Keeping Format When Selecting Range To Email

Hey everyone. I currently have a VBA code which selects a custom range and then emails said selected range to a list of E-mails I have in another worksheet. Everything is running smoothly, I just need to know how to have the selected range keep its format (some of the text is red but once sent in an e-mail is displayed as default text). I've attached the few specific lines of code where I feel the problem can be fixed...and if needed I've also attached a whole block of code in which the specific lines of code can be found for one table.

Thanks in advance.

   If IsEmpty(Range("B4")) Then
   Else
      ActiveSheet.Range("a3", ActiveSheet.Range("e3").End(xlDown)).Select
      ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Item.To = eTo
      .Item.Subject = "Allocations -  Barclays" & Format(Date, " mm/dd/yyyy")
      .Item.Send
   End With
   End If

WHOLE CODE:

        For Each aCell In Worksheets("Email List").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
            If aCell <> "" Then
                    eTo = eTo & aCell & ";"
                End If
    Next
     eTo = Left(eTo, Len(eTo) - 1)
   If IsEmpty(Range("B4")) Then
   Else
      ActiveSheet.Range("a3", ActiveSheet.Range("e3").End(xlDown)).Select
      ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Item.To = eTo
      .Item.Subject = "Allocations -  Barclays" & Format(Date, " mm/dd/yyyy")
      .Item.Send
   End With
   End If