Check for text within cells and make bold

  • Thread starter Thread starter TroyB
  • Start date Start date
T

TroyB

Hi,

Is it possible to check the text within a group of cells (each cell contains
a full sentence) and if the words "PROVISIONAL SUM" are in a cell, then make
only the text "PROVISIONAL SUM" bold.
eg A3 = Supply and install conduits for power cable beneath proposed roads
and existing trees (PROVISIONAL SUM)

Thanks
Troy
 
Hi Troy
try the following macro (processes the current selection):

Sub foo()
Dim rng As Range
Dim cell As Range
Dim start_str As Integer

Set rng = Selection
For Each cell In rng
start_str = InStr(cell.Value, "PROVISIONAL SUM")
If start_str Then
cell.Characters(start_str, 15).Font.Bold = True
End If
Next
End Sub
 
Back
Top