Concatenate 3 columns.

This is the routine I used to concatenate 2 columns. How would I concatenate 3 adjacent columns?

Thanks,

Jim


Sub ConcatColumns()

Do While ActiveCell <> "" 'Loops until the active cell is blank.

'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.

ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " - " & ActiveCell.Offset(0, 0)

ActiveCell.Offset(1, 0).Select
Loop

End Sub

How concatenating 4 columns? In fact, if someone could proved the ability to concatenate columns that are not adjacent that would be helpful also.

Thanks,

Jim