View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default 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