I keep getting the sub or function not defined on this line.
With OutMail
.To = "rep"
.CC = ""
.BCC = ""
.Subject = "This is a test"
.HTMLBody = RangetoHTML(rng) **This line**
.send

I am able to send the email or text but I can not get the sheet to send.