Hey Gmayor , I tried and may be I was not doing it correctly . can you look and advice if I placed extra lines correctly.

 For iRow = 2 To LastRow
        If xlSheet.Range("G" & iRow) = "yes" Then 'add this line
        sPath = xlSheet.Range("D" & iRow)
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = xlSheet.Range("C" & iRow)
            .CC = xlSheet.Range("F" & iRow)
            .Subject = xlSheet.Range("E" & iRow)
            sAttach = Dir$(sPath & "*.pdf")
            While Len(sAttach) <> 0
                If InStr(1, sAttach, xlSheet.Range("A" & iRow)) > 0 Then
                    .attachments.Add sPath & sAttach
                End If
                sAttach = Dir$()
                DoEvents
            Wend
            .HTMLBody = "<HTML><BODY>Please find invoice " & sAttach & " attached" _
            & "<BR>" & "</HTML></BODY>"
             '        .Send   'or use .Display
            .Display
        
        End With
        End If
    Next iRow