Searching for text in cells

[Guest]

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.

 

[Tom Ogilvy]

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