Sending Emails with attachments if criteria met

[gmayor]

Add lines as follows

For iRow = 2 To LastRow
        If xlSheet.Range("G" & iRow) = "yes" Then  'add this line

and

        End If  'add this line
    Next iRow