VBA Code To Email Multiple Recipients From Excel

[Rick Rothstein]

I am still getting just the 1st person in the list.

Duh, well of course you are getting just the first name... I just re-looked at your code...

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

I highlighted the problem in red above... your For..Each loop is iterating through all the cell is range 'r'... there is only one cell in range 'r'. You need to expand the range to include all the cells you want processed. Assuming the your names are in column AR, your code for that Set line should probably look like this...

Set r = Range("AR2:AR" & Cells(Rows.Count, "AR").End(xlUp).Row)

Note: You will still have to make the change to the line of code inside the For..Next block that I posted earlier in order to get all the names in the list.