G
gwoodby
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
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