You can run a macro something like below. If you are looking to check for a specific range than you can restrict the search further. Also this will give a message for each instance that it finds. You could just stop at the first instance and select the cell
Dim myCell As Range
For Each myCell In Sheets("try").UsedRange 'change for your sheet name
If myCell.Font.ColorIndex = 3 Then
MsgBox "range " & myCell.Address & " has red text"