Hi Everyone

I want to show a message that will contain the names of people in a range that is updated regularly. I am using the following code:

Sub Dist_List()
Application.ScreenUpdating = False

Range("D2").Select
    Dim strMsg As String
    Do Until IsEmpty(ActiveCell)
    strMsg = "The following people are currently on the Message Distribution list:" & vbCrLf & vbNewLine
    strMsg = strMsg & "     • " & Range("D2").Value & vbNewLine
    ActiveCell.Offset(1, 0).Select
      Loop
                  
    MsgBox strMsg, vbInformation, "Distribution List"

Application.ScreenUpdating = True
End Sub
The problem I have is , it will only show the person who's name is in cell D2. I have a named range (email2) which currently spans cells D2:D10, but as I said previously, the range can and will grow.

Does anyone have any suggestions?