怎样将选中的单元格中的内容合并为一条字符串（string）

Sub mera()
    Dim rng As Range, rngadd As Range
    Dim str As String
    Set rng = ActiveSheet.Range("L9:L15")
    rng.Select
    For Each rngadd In rng
        str = str & rngadd.Value
    Next rngadd
    MsgBox str
    Cells(1, 1) = str
End Sub