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