Excel VBA, embedded a chart via HTML into an email but the conditional formatting has gone

Through excel VBA I have embedded a table of data via HTML into the body of an email. All works fine except the conditional formatting dissappears when it is in the email.

Any help would be appreciated, here is the relevant code.

Dim TableRangeB As Object
Set TableRangeB = Sheet10.Range("P1:V"& RegionTableLen).SpecialCells(xlCellTypeVisible)

On Error Resume Next
With OutlookMessage
    .To = EmailListNames
    .CC = EmailListNames2
    .BCC = ""
    .Subject = DepotThatIsBeingChecked & " Route&Drop KPIs"
    .HTMLBody = StringText & "<br>"& RangeToHTML(TableRangeB)
    .Attachments.Add TempFilePath & TempFileName & FileExtStr
    .Display