Assuming the addresses are in column A, and there's no other info in the db:

Sub GetEmailAddresses()

Dim MyRange As Range
Set MyRange = Range("A1").CurrentRegion
MyRange.Select

For Each cel In MyRange
strEmail = strEmail & "," & cel
Next cel

strEmail = Mid(strEmail, 2)

MsgBox strEmail

End Sub


"BASIL" wrote:

I saved a list of friends personal email addresses to an excel spreadsheet.
Now I wish to to take this list email my friends. I have approx 200
addresses(names). I know in AOL, Yahoo etc. You need to place commas after
every name in order for it to reach the recipient. How can i take this list
and place the comma after everyname without manually doig it for every line.
Is there a mail merge function otr something.... PLEASE HELP.....