Does anyone know how I can modify the code below to only email the rows in a worksheet where a cell in any row equals a given value?

Hope you can help me.

Sub Mail_Product_Data_Update()
Dim varAnswer As String

varAnswer = MsgBox("Are you sure you want to send Updates? If Yes then Select Yes on the next Warning Message.", vbYesNo, "Warning")
If varAnswer = vbNo Then Exit Sub
Dim strDate As String
Sheets(Array("Product Data")).Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "[email protected]", _
"Updated Combined Report"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub