Find/replace > change to red

[richiwatts]

Hi,

We have exported our database to Excel and we need to change th ecolour of our variables to red:

We have cells like this:
The property offers ${BusinessAmty}.
This property has ${RecFacilities}, ${RecFacilities}, and ${RecFacilities}.

How do I change all the different ${*} to red.
I know how to do it with Wildcards in Word but do not know how to do this in Excel.
Thanks for your help

 

[PCL]

Perhaps next piece of code could help.
It turns cell's font in red when exist $ and { and } for the actve sheet

[/FONT][/COLOR]
[COLOR=black][FONT=Verdana][COLOR=black][FONT=Verdana]Option Explicit[/FONT][/COLOR][/FONT][/COLOR]
[COLOR=black][FONT=Verdana][COLOR=black][FONT=Verdana]Sub Change_Red()
Dim F As Object
Dim Test1 As Boolean
Dim Test2 As Boolean
Dim Test3 As Boolean
    For Each F In ActiveSheet.UsedRange
        Test1 = False: Test2 = False: Test3 = False
        Test1 = (Len(F.Value) - Len(Replace(F.Value, "$", ""))) >= 1
        Test2 = (Len(F.Value) - Len(Replace(F.Value, "{", ""))) >= 1
        Test3 = (Len(F.Value) - Len(Replace(F.Value, "}", ""))) >= 1
        If (Test1 And Test2 And Test3) Then F.Font.ColorIndex = 3
    Next F
End Sub
[/FONT][/COLOR][/FONT][/COLOR]
[COLOR=black][FONT=Verdana]

 

[MickG]

Hi Try this:-

Sub ColRed()
Dim cl As Range, Txt, oTxt, Red, Lg
For Each cl In ActiveSheet.UsedRange
    If InStr(cl, "$") Then
       For Red = 1 To Len(cl)
           If Mid(cl, Red, 1) = Chr(36) Then
                Lg = InStr(Red, cl, Chr(125), vbTextCompare)
                    cl.Characters(Red, Lg - Red + 1).Font.ColorIndex = 3
                End If
            Next Red
        End If
Next cl
End Sub

Regards Mick

 

[richiwatts]

Thanks MickG