I have a similar question to this one:
Merge the contents of 2 cells into another 3rd cell using VBA in Excel
But I want to combine a range of cells within a
Just to add to Mike's solution, if you want to get your range from a variable instead of a defined range (I had trouble with the syntax):
Sub MyMacro() dim myVar As Range MsgBox ConcatinateAllCellValuesInRange(myVar) End Sub