Ron I tried If Len(strcc) 0 Then strcc = Left(strcc, Len(strcc) -
1)

but getting a message 'no cells found' on line

For Each cell In ThisWorkbook.Sheets("Area 1") _
.Range("AI2:AI3").Cells.SpecialCells(xlCellTypeCon stants)

Which is correct in that there is no address, but thats were I wish to
have no e-mail address added to my mail (my TO field will always have
an address, so it will be a vaild e-mail, just my CC and BCC feilds
may not always have an address)