Conditional Formatting in an entire workbook

[jamiejayanna]

I am trying to change font style of 2 repeating words that occur throughout a workbook either in a text string or singularly.

Changes:

"Chapter" to bold and red
"Section" to bold and blue

Looking for a simple code - thanks

 

[Jimmypop]

I am trying to change font style of 2 repeating words that occur throughout a workbook either in a text string or singularly.

Changes:

"Chapter" to bold and red
"Section" to bold and blue

Looking for a simple code - thanks

Good day and Welcome to Mr. Excel

Try the below. I did my tests on a CommandButton...

Private Sub CommandButton1_Click()
    Set TextRange = Range("A:A") 'Set your own range here
    partOfText = "Section" 'Change here the word you would like to format
    FontColor = vbBlue 'Change the color here e.g. vbRed, vbBlue
    FontBold = True
    For Each part In TextRange
        lenOfPart = Len(part)
        lenPartOfText = Len(partOfText)
        For i = 1 To lenOfPart
            tempStr = Mid(part, i, lenPartOfText)
            If tempStr = partOfText Then
                part.Characters(Start:=i, Length:=lenPartOfText).Font.Color = FontColor
                part.Characters(Start:=i, Length:=lenPartOfText).Font.Bold = FontBold
            End If
        Next i
    Next part
End Sub