On Sunday, June 16, 2013 1:54:05 AM UTC-7, Claus Busch wrote:
Hi Howard



Am Sun, 16 Jun 2013 01:29:22 -0700 (PDT) schrieb Howard:



Thanks Claus, that works very nice.



you can shorten the IF-Statement:



Sub ConcatMe()

Dim rngC As Range



[AK15].Clear

For Each rngC In Selection

[AK15] = IIf(Len(rngC) = 0, [AK15] & " ", [AK15] & rngC.Text)

Next

End Sub





Regards

Claus Busch


Now that's pretty snazzy!

Where do you come up with this magic?

Thanks,
Howard