Hi, Ben4576!
First of all welcome to Chandoo's website Excel forums. Thank you for your joining us and glad to have you here.
As a starting point I'd recommend you to read the green sticky topics at this forums main page. There you'll find general guidelines about how this site and community operates (introducing yourself, posting files, netiquette rules, and so on).
Among them you're prompted to perform searches within this site before posting, because maybe your question had been answered yet.
Feel free to play with different keywords so as to be led thru a wide variety of articles and posts, and if you don't find anything that solves your problem or guides you towards a solution, you'll always be welcome back here. Tell us what you've done, consider uploading a sample file as recommended, and somebody surely will read your post and help you.
And about your question...
If you haven't performed yet the search herein, try going to the topmost right zone of this page (Custom Search), type the keywords used in Tags field when creating the topic or other proper words and press Search button. You'd retrieve many links from this website, like the following one(s) -if any posted below-, maybe you find useful information and even the solution. If not please advise so as people who read it could get back to you as soon as possible.
Despite of these, you'd surely want to give a look at this file:
https://dl.dropboxusercontent.com/u/60558749/Find%20and%20replace%20text%20by%20color%20%28for%20Ben4576%20at%20chandoo.org%29.xlsm
It uses a dynamic named range ReferenceTable located in the Reference worksheet, which can be changed within the code. The Update Refs button will search in all worksheets different from Reference cells with font color in red, will add them in the ReferenceTable, and set crossed links from and to the reference and the referrer.
This is the code:
-----
Option Explicit
Sub UpdateRefs()
' constants
Const ksWS = "Reference"
Const ksReference = "ReferenceTable"
Const ksHyperlink1 = "=HYPERLINK("
Const ksLinkPrefix = "#"
Const ksAdmiral = "!"
Const ksComma = ","
Const ksQuote = """"
Const ksHyperlink2 = "
"
' declarations
Dim ws As Worksheet, wsR As Worksheet, rng As Range
Dim lReference As Long, sName As String, sLink As String, sText As String
Dim I As Long, J As Long, C As Range
' start
Set wsR = Worksheets(ksWS)
Set rng = wsR.Range(ksReference)
lReference = rng.Rows.Count
' process
With rng
For I = 1 To ThisWorkbook.Worksheets.Count
Set ws = ThisWorkbook.Worksheets(I)
sName = ws.Name
If sName <> ksReference Then
For Each C In ws.UsedRange
If C.Font.Color = vbRed Then
' position
lReference = lReference + 1
.Cells(lReference, 1).Value = sName
.Cells(lReference, 2).Value = C.Address(False, False, xlA1)
' formula or value
If C.HasFormula Then
.Cells(lReference, 3).Value = C.Formula
Else
.Cells(lReference, 3).Value = C.Value
End If
' links
' in reference
sText = ksHyperlink1 & _
ksQuote & ksLinkPrefix & ws.Name & ksAdmiral & _
C.Address(False, False, xlA1) & _
ksQuote & ksComma & ksQuote & _
Format(C.Value) & _
ksQuote & ksHyperlink2
.Cells(lReference, 3).Formula = sText
' in worksheet
sText = ksHyperlink1 & _
ksQuote & ksLinkPrefix & wsR.Name & ksAdmiral & _
.Cells(lReference, 3).Address(False, False, xlA1) & _
ksQuote & ksComma & ksQuote & _
Format(C.Value) & _
ksQuote & ksHyperlink2
C.Formula = sText
End If
DoEvents
Next C
End If
Set ws = Nothing
Next I
End With
' end
Application.CutCopyMode = False
Set C = Nothing
Set rng = Nothing
Set wsR = Nothing
Beep
End Sub
-----
Just advise if any issue.
Regards!