Private Function CheckedSummons(StringtoCheck As String) As String
Dim cnt As Integer
Dim NewText As String
Dim SummonsInformation As String
Dim rngFound As Range

Set rngFound = Range("A6:AX4500").Find(StringtoCheck, _
LookIn:=xlValues)

For cnt = 25 To 41
NewText = rngFound.Offset(0, cnt).Value
If NewText < "" Then
If SummonsInformation = "" Then
SummonsInformation = NewText
Else
SummonsInformation = SummonsInformation & vbLf & NewText
End If
End If
Next cnt

CheckedSummons = SummonsInformation

End Function

HTH,
Bernie
MS Excel MVP


wrote in message
...
Whats the easiest way to do this I am having a hard time trying to
figure this one out :( Please Help!!!

Private Function CheckedSummons(StringtoCheck As String)
Dim cnt As Integer
Dim NewText As String
Dim SummonsInformation as String
For cnt = 25 To 41
NewText = Range("A6:AX4500").Find(StringtoCheck,
LookIn:=xlValues).Offset(0, cnt)
If NewText < "" Then
' If Newtext is not nothing then Save Whats Already in
SummonsInformation, Add a NewLine
' and Add Newtext to SummonsInformation
end if
next cnt

End Function