Function PassedCourses(target As Range)
startnum = 1
lookhere = 1
Do
lookhere = InStr(startnum, target, "Passed")
startnum = lookhere + 1
If lookhere = 0 Then GoTo answer
coursespassed = Mid(target, Len("Passed") + startnum, 1) * 1
totalpassed = coursespassed + totalpassed
i = i + 1
Loop
answer:
PassedCourses = totalpassed
End Function