Hi chipgiii
all depends on the content and layout of the text but try..
Code:Option Explicit Sub HighlightCells() Dim Lookin As Range, ff As String Dim i As Long Dim Fnd As Variant Dim fCell As Range Dim ws As Worksheet Dim xItem As Variant Fnd = Array("Prior Description", "No Description", "New Description") For Each ws In Worksheets With Sheets(ws.Name) For Each xItem In Fnd Set Lookin = .Cells.Find(xItem, Lookin:=xlValues, LookAt:=xlPart) If Not Lookin Is Nothing Then ff = Lookin.Address Do Lookin.Characters(InStr(1, Lookin, xItem), Len(xItem)).Font.Bold = True Set Lookin = .Cells.FindNext(Lookin) Loop Until ff = Lookin.Address End If Set Lookin = Nothing Next End With Next End Sub
Bookmarks