Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String Dim finalValue As String Dim cell As Excel.Range For Each cell In sourceRange.Cells finalValue = finalValue + CStr(cell.Value) Next cell ConcatinateAllCellValuesInRange = finalValue End Function
Sub MyMacro() MsgBox ConcatinateAllCellValuesInRange([A1:C3]) End Sub
How would I exchange MsgBox for sheet ("COMBINED") Cell A1 ??
Thanks
Bookmarks