I created this macro in Excel below to send emails to the team that the data belongs to. The problem is that the email has to be a specific font and color and has to add my signature.

This code works, but does not format any text.

Sub Send_Range()

' Select the range of cells on the active worksheet.
Application.Goto ActiveWorkbook.Sheets("Team").Range("A10:J33")

'Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Good morning, Here are the stats for your team Today, Yesterday and MTD."
.Item.To = "Team <teamemail@company.com>"
.Item.Subject = "Today, Yesterday, MTD -Team"
.Item.Send
End With
End Sub

This is the code that I am working on. I want to add the font color, font, and my signature. I am new to VB and have found all the information that I need from this forum. You guys seem to know it all, so I thought I'd ask for help on finding the correct command to make this email format correctly.

Sub Send_Range()
Dim blue, rgbValue As Integer
' Return the value for BLUE.
blue = RGB(0, 150, 214)
' Select the range of cells on the active worksheet.
Application.Goto ActiveWorkbook.Sheets("Team").Range("A13:J48")

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.

With ActiveSheet.MailEnvelope

.Introduction= "<html><span style='font size:11.0pt;Font Face:Simplified;color:blue'>" & _
"Good Morning Team,"<p2>"Here are the stats for your team Today, Yesterday and MTD."<p2/><p3>"Regards,"<p3/><p4>"Myname"<p4/><p5>"mytitle"<p5/><br><p6>"mygroup"<p6/><p7><p7/><p8>"email@company.com"<p8/><P9>"Myphonenumber"<P9/><P10>"Company Name"<P10/><P11>"2351 HP Way"<P11/><P12>"Rio Rancho, NM 87124"<P12/><P13>"USA"<P13/><br><br>" & _
"<html/></span>"
.Item.To = "TeamTeam <teamemail@company.com>"
.Item.Subject = "Today, Yesterday, MTD SLA -Team"
MsgBox .HTMLbody
.Item.Send
End With
End Sub

Any help would be appreciated.