Reply to thread

Message: [QUOTE="Howard, post: 7419328"] This second one is what I had in mind. I struggled with a macro that did similar to what you posted EXCEPT it returned everything in reverse and would not include the blank cells. What I will use this for is single common words where there will be no blanks, but also on proper names like Henry theEighth or Henry Wadsworth Longfellow or King Tut. K i n g T u t so will need to include the blank/space cell. Howard if you only want to concatenate your selected cells try: Sub ConcatMe2() Dim rngC As Range For Each rngC In Selection [AK15] = [AK15] & rngC.Text Next End Sub [/QUOTE]