Concatenate cells to format email address recipient string

Im using this right now but I need this to be more dynamic. (Have to add code for any user additions)

'added email urls to hidden sheet "Misc data" (Sheet 7)
    sRecipients = (Sheets("Misc data").Range("A2") & ";" & Sheets("Misc data").Range("A3")) & ";" & Sheets("Misc data").Range("A4") & ";" & Sheets("Misc data").Range("A5")

Im trying this to read cells in column F, but cant figure out how to string this together in the loop.

    With Sheets("Misc data")
        'Loop thru Column F
        sh7LastRow = .Cells(Rows.Count, "F").End(xlUp).Row
        Set sh7Range = .Range("F1:F" & sh7LastRow)
    End With
    For Each Sh7Cell In sh7Range
    sRecipients = Sh7Cell     'How to create string from cells on Sheet7 Column F
    Next Sh7Cell

Any hints, tips or examples is appreciated.