VBA snippet to add ";" end of each email id from a cell

[Karthik Thandapani]

Hi,

My requirement is to send an email notification to a group of users directly from the excel framework. Presently I've the below code;
With OutMail
.To = Range("E7").Value
.CC = "tkar@outlook.com"
.BCC = ""
.Subject = "Notification from RA tool"
.HTMLBody = RangetoHTML(Rng)
.Display
End With

I have a list of user email IDs populating in few cells & that needed to be added with a ";" at the end of each email addresses. Can anyone please help me with a vba snippet to loop column"N" get email ID & concat with ";" and add in range"E7" ?

Thanks in advance. Please see the attached file.

 

[Debraj]

Hi Karthik,

Try this..

Sub AddAtEnd()
    [E8] = Join(Application.Transpose(Range("N11:N" & Range("N11").End(xlDown).Row)), ";")
End Sub

 

[Karthik Thandapani]

Hi Debraj,

Worked great. Thanks!!