VBA: Join Cells on a Spreadsheet

JoinCells.vb

Public Sub JoinCells()

Dim xls As Excel.Worksheet
Dim cell As Excel.Range
Dim destn_rge As Excel.Range
Dim combined As String
Dim i As Long

i = 0
Set destn_rge = Nothing
combined = ""
For Each cell In Selection
    i = i + 1
    If i = 1 Then
        Set destn_rge = cell
    End If
    combined = combined & cell.Value & vbCrLf
Next cell
        
destn_rge.Value = combined

End Sub