Sub GetText
Dim rng as Range, sStr as String
On Error Resume Next
set rng = Selection.SpecialCells(xlConstants,xlTextValues)
On Error goto 0
if not rng is nothing then
for each cell in rng
sStr = sStr & cell.Value
next
Range("A1").Value = sStr
End if
End sub
--
Regards,
Tom Ogilvy
"Matt" wrote in message
...
I need to search a group of cells for text and return that text into one
cell. There will always be only one value in that group of cells.
|