Hi there,
Yes it is:
Sub ContCells()
Dim Cll As Range
Dim Str As String
Dim MinRow, MinCol As Integer
MinRow = 10000
MinCol = 10000
For Each Cll In Selection
Str = Str & " " & Cll.Text
If Cll.Row < MinRow Then MinRow = Cll.Row
If Cll.Column < MinCol Then MinCol = Cll.Column
Cll.ClearContents
Next Cll
Cells(MinRow, MinCol) = Right(Str, Len(Str) - 1)
End Sub
or
Sub ContCells2()
Dim Cll As Range
Dim Str As String
For Each Cll In Selection
Str = Str & " " & Cll.Text
Cll.ClearContents
Next Cll
ActiveCell = Right(Str, Len(Str) - 1)
End Sub
Bookmarks