Let's make one sub that takes arguments, and then we can call it multiple times.
Public Sub MainCall()
Application.ScreenUpdating = False
'What are all the things to find?
Call ChgTxtColor(Range("A25:A100"), "late", 3)
Call ChgTxtColor(Range("A25:A100"), "start", 3)
Call...