Email distribution list....Combine all cells into one.

[gg]

I have email addresses all seperated from D1:D1955. The email addresses all have a comma after the address. I need to be able to put all these addresses in one line so that I can send out a bulk email.

How can I get all of these in one cell?

 

[TheNoocH]

this might do the trick...just change the last line to the actual cell you want this to wind up in...right now it's set for A1...

Sub test()
   myEmails = ""
   For Each cell In Range(Cells(1, "D"), Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D"))
   myEmails = myEmails & cell.Value
   Next cell
   Range("A1").Value = myEmails
End Sub

 

[gg]

That got it!
Thanks!