Joining Excel Column Text Together

Joining Excel Column Text Together:-
==============================

There are times where we import text file into Excel an we get text that are separated. I received an email asking how put these text together. Select across your cells first and run this VBA macro.

Sub JoinColumnTexts()

myCol = Selection.Columns.Count

For i = 1 To myCol

ActiveCell = ActiveCell.Offset(0, 0) & ActiveCell.Offset(0, i)

ActiveCell.Offset(0, i) = ""

Next i
End Sub