Hi there,
FYI, I've split your question into it's own thread. 
I've cleaned up your code a bit here, but I'm not quite sure I follow what you want to happen. At this point, it should copy the row, and will create your outlook email. You want the data in the Outlook email though? And then just highlight the entire row in the spreadsheet in green?
Code:
Sub cond_copy()
Dim i As Integer
Dim wsSource As String
wsSource = Sheets("Sheet1")
For i = 1 To wsSource.Cells(wsSource.Cells.Rows.Count, "a").End(xlUp).Row
If UCase(CStr(wsSource.Range("a" & i).Value)) = "TRUE" Then
wsSource.Range("a" & i).EntireRow.Copy
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
'Uncomment the line below to hard code a recipient
.To = "someone@somedomain.com"
'Uncomment the line below to hard code a subject
'.Subject = paste
.display
End With
End If
Next
End Sub
Bookmarks