Check for text within cells and make bold
 

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

Check for text within cells and make bold
 

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


--
Regards
Frank Kabel
Frankfurt, Germany

TroyB wrote:
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