Searching for text in cells

M

Matt

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.
 
T

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
 
Top