select email address from cell and add to cc email

[Admin]

Hi

See the code where I commented one line.

If ddiff > 1 Then
    c.Offset(0, 1).Value = ddiff & " days from now"
    
    '************* commented the following line. it is not either due or overdue************************************
    'body = body & c.Offset(0, -4) & ": " & Chr(9) & c.Offset(0, -3) & Chr(9) & Chr(9) & Chr(9) & ddiff & " Days from now" & vbCrLf
    
Else
    If ddiff = 0 Then
        c.Offset(0, 1).Value = "due today"
        body = body & c.Offset(0, -4) & ": " & Chr(9) & c.Offset(0, -5) & ": " & Chr(9) & Chr(9) & c.Offset(0, -3) & ": " & Chr(9) & c.Offset(0, -1) & ": " & Chr(9) & " Due today" & ": " & vbCrLf
    Else
        c.Offset(0, 1).Value = ddiff * -1 & " days overdue"
        body = body & c.Offset(0, -4) & ": " & Chr(9) & c.Offset(0, -5) & ": " & Chr(9) & c.Offset(0, -3) & ": " & Chr(9) & c.Offset(0, -1) & ": " & Chr(9) & ddiff * -1 & " Days overdue" & ": " & vbCrLf
        '///New Code
        Set rngbody = Union(rngbody, c.Offset(0, -5).Resize(1, 7))
    End If
End If