H
Howard
Can this neat little snippet be altered to work on a row of selected cells AND include the blanks?
Works fine as is with =ConcatMe("A1:Z1") but omits any blanks.
I may want only A1:G1 including the blank cells if any. =ConcatMe('Selection')
Thanks,
Howard
Option Explicit
Function ConcatMe(Rng As Range) As String
Dim cl As Range
ConcatMe = ""
For Each cl In Rng
ConcatMe = ConcatMe & cl.Text
Next cl
End Function
Works fine as is with =ConcatMe("A1:Z1") but omits any blanks.
I may want only A1:G1 including the blank cells if any. =ConcatMe('Selection')
Thanks,
Howard
Option Explicit
Function ConcatMe(Rng As Range) As String
Dim cl As Range
ConcatMe = ""
For Each cl In Rng
ConcatMe = ConcatMe & cl.Text
Next cl
End Function