Hello all,
New user. I working on vb to copy the range A:F of the active row based on the if/then results. I am looking for a method for the copy/paste function to easily paste into an existing vb. What I have works great as written. I would like to replace the "WE HAVE A WINNER!" text in the email body with the aforementioned range.

Sub FollowUp()
Dim Cell As Range
For Each Cell In Sheet3.Range("L3:L" & Sheet3.Range("L" & Rows.Count).End(xlUp).Row)
If IsEmpty(Cell.Value) Then GoTo X:
If Cell.Value - Date <= -10 Then
Cell.Interior.ColorIndex = 45
If Cell.Interior.ColorIndex =45 Then
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "The quote approval period for the Repair asset" & vbNewLine & _
"listed below has expired:" & vbNewLine & vbNewLine & _
"WE HAVE A WINNER!" & vbNewLine & _
"Please contact the customer as soon as possible" & vbNewLine _

On Error Resume Next
With OutMail...



Thank you in advance for your help.