Function SumText(ByVal FRange As Range, FC, SRange As Range)

Dim FRow As Single

s = FRange.Worksheet.Name

SumText = ""

For FRow = FRange.Row To FRange.Row + FRange.Rows.Count - 1

If Worksheets(FRange.Worksheet.Name).Cells(FRow, FRange.Column).Value = FC Then

If SumText = "" Then

SumText = Worksheets(SRange.Worksheet.Name).Cells(FRow, SRange.Column).Value

Else

SumText = SumText & Chr(10) & Chr(13) & Worksheets(SRange.Worksheet.Name).Cells(FRow, SRange.Column).Value

End If

End If

Next
End Function