Need help creating Macro to combine text cells....Please

[rsajdak]

I am trying to create a Macro where I can select a few cells that has text and the Macro will combine all the text into one cell while keeping line breaks at the end of each line.

The first table shows the cells prior to executing the Macro. I want to select the cells that I want to combine and then run the Macro.

The second table shows the desired outcome (please note the line breaks).

Can anyone please help me out with a Macro?

Compliance.xls
	B	C	D	E
558	SI_VOCS_4_313	AH/back-up:
559		10occupies
560		01vacant
561		11signalinvalidly
562	SI_VOCS_4_312	SBR:
563		10occupies
564		01vacant
565		11signalinvalidly
Sheet1

Compliance.xls
	B	C	D	E
558	SI_VOCS_4_313	AH/back-up:
559		10occupies 01vacant 11signalinvalidly
560
561
562	SI_VOCS_4_312	SBR:
563		10occupies 01vacant 11signalinvalidly
564
565
Sheet1

 

[acw]

Hi

Try

Sub aaa()
 For Each ce In Selection
  holder = holder & ce & vbLf
 Next ce
 
 Selection.ClearContents
 ActiveCell.Value = Left(holder, Len(holder) - 1)

End Sub

Tony