Text formatting within a cell for the entire column

[techie2013]

I have a column with some text in each of its cell.

The string "Notes:" is occurring once or multiple times in each cell.

I would like to find all occurrences of this string in each cell throughout the column and either make it bold or underlined.




This is how the text looks now:


"There will be a screen with many controls.
Note: See the document referenced.in the above section.
Note: See the technical design document"


Any help would be highly appreciated.


Thanks

 

[patel45]

------------ deleted

 

[patel45]

Sub Macro3()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To LR
  s = Range("A" & j).Text
  p = InStr(s, "Note")
  If p > 0 Then Range("A" & j).Characters(p, 4).Font.Bold = True
Next
End Sub

 

[HaHoBe]

Hi, techie2013,

if the text you posted is located within one cell the code may look something like

Sub MREX726636()
Dim lngRowCount As Long
Dim lngItemFound As Long
Dim strCellText As String
Dim lngStart As Long

For lngRowCount = 1 To Cells(Rows.Count, "A").End(xlUp).Row
  lngStart = 1
  strCellText = Range("A" & lngRowCount).Text
  Do While InStr(lngStart, strCellText, "Note") > 0
    lngItemFound = InStr(lngStart, strCellText, "Note")
    Range("A" & lngRowCount).Characters(lngItemFound, 4).Font.Bold = True
    lngStart = lngStart + lngItemFound + 4
  Loop
Next lngRowCount
End Sub

Ciao,
Holger

 

[techie2013]

Thank you both. This was very helpful to get it done.