The situation I had in mind Ron, is where my TO; CC and BCC addresses
are all in the same column

..Range("A3:AI5").Cells.SpecialCells(xlCellTypeCon stants)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sean" wrote in message ...
The situation I had in mind Ron, is where my TO; CC and BCC addresses
are all in the same column

Wow Thanks Ron, its a simple as that

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)

Ron, it maybe relevant but the e-mail addresses in the CC and BCC
feild are formula derived, as like

","")

Hi Sean

Use this then

On Error Resume Next
For Each cell In ThisWorkbook.Sheets("Mail") _
.Range("A3:AI5").Cells.SpecialCells(xlCellTypeForm ulas)

If cell.Value Like "?*@?*.?*" Then
strcc = strcc & cell.Value & ";"
End If
Next
If Len(strcc) 0 Then strcc = Left(strcc, Len(strcc) - 1)
On Error GoTo 0


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sean" wrote in message ...
Ron, it maybe relevant but the e-mail addresses in the CC and BCC
feild are formula derived, as like

","")

Thanks Ron, seems to work great