Ahh yes. You'll need to double up on the quotes within the string.

.HTMLBody = "<font color=""""red"""">" & Temp_Body & "</font>" & vbNewLine & vbNewLine & RangetoHTML(rng)