VBA Code To Email Multiple Recipients From Excel

[cdurfey]

I am writing a code to send an email from excel using the name in column AR. I have the following code but it will only pull the 1st name it comes to. I need it to pull all of the names. There will be some names that are repeated so I would like for it to pull each name only once if that is possible. Thanks

Dim OutApp As Object
    Dim OutMail As Object
    Dim Recipients As String, c As Range
    Set r = Range("AR2")
    For Each c In r

            Recipients = ";" & c.Value
    Next c
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next