Ron so it looks like I need to use this code.

Dim cell As Range
Dim strto As String
For Each cell I
ThisWorkbook.Sheets("Sheet1").Columns("C").Cells.S pecialCells(xlCellTypeConstants)
If cell.Value Like "*@*" Then
strto = strto & cell.Value & ";"
End If
Next
strto = Left(strto, Len(strto) - 1)
_______________________________________

But my question is how would this wrap around my code? Does it com
after or do I have to merge the two? I assume that the code below (m
(well actually yours) code) would need to be altered and honestly thi
it beyond me on how to change if…. thens within if….thens….. Sorry t
be a big pain in the arse on this.


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
To = "
CC = ""
BCC = ""
Subject = "xxxx recap " & strdate & " (nospam4me)"
Dim strbody As String
strbody = "Dear xxx," & vbNewLine & vbNewLine & _
"Attached, please find the trade recap for the US markets and
European fills" & vbNewLine & _
"" & vbNewLine & _
"Best Reguards," & vbNewLine & _
"Ken" & vbNewLine & _
"" & vbNewLine & _
""
Body = strbody

Attachments.Add ("C:\xxx\xxx\xxx\xx\xx Fills " & Format(Date,
"mm-dd-yy") & ".xls")
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
Send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothin

--
Message posted from http://www.ExcelForum.com