Nested Loop?

[JackDanIce]

Hi,

Have the following code which works fine but I think it can be reduced by placing into a nested loop, but I'm not sure how to make sure the string variables are built up properly:

e = Range("EmailList").Row + 1
Do
    Email_List = Email_List & Cells(e, c) & "; "
    e = e + 1
Loop Until IsEmpty(Cells(e, c))

e = Range("EmailList").Row + 1
Do
    Email_CC = Email_CC & Cells(e, c + 1) & "; "
    e = e + 1
Loop Until IsEmpty(Cells(e, c + 1))

e = Range("EmailList").Row + 1
Do
    Email_BCC = Email_BCC & Cells(e, c + 2) & "; "
    e = e + 1
Loop Until IsEmpty(Cells(e, c + 2))

Can this be nested?

Jack

 

[JackDanIce]

Thought of this but I question if it's an improvement (probably not then):

Dim i As Long
e = range("EmailList").Row + 1
For i = 0 To 2
    Do
        TempS = TempS & Cells(e, c + i) & "; "
        e = e + 1
    Loop Until IsEmpty(Cells(e, c + i))
    
    Select Case i
        Case 0
            Email_List = TempS
        Case 1
            Email_CC = TempS
        Case 2
            Email_BCC = TempS
    End Select
    
    e = range("EmailList").Row + 1
    TempS = Empty
    
Next i