How to Merge Email Addresses in Excel

[Melimob]

Hi there

Column A has rows of email addressess.

I need a macro to grab each email address and concatanate with a ',' in between so I can send the list to someone and they can use to email this group.

Does anyone have a Macro they can share to do this?

Many thanks in advance!!

 

[VoG]

Try this - results in B1

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1").Value = Join(Application.Transpose(Range("A1:A" & LR)), ",")
End Sub