making Cell text as bold

[kiran527]

Hi,

Is there any macro to find a string in a Excel cell and make that particular string as bold

[Richard Buttrey]

Hi,

Is the string the only characters in the cell or is the string a subset of all the cell's characters?
And are you looking at a specific cell or finding the string somewhere in a range of cells?

[Fotis1991]

Assuming that your data are in column A, type the string that you want in C1 and run this code.

Sub ChangeColour()
Dim Cell As Range

QueryTerm = Range("C1").Value

For Each Cell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    If InStr(UCase(Cell.Value), UCase(QueryTerm)) > 0 Then
        Cell.Characters(Start:=1, Length:=InStr(UCase(Cell.Value), UCase(QueryTerm)) - 1).Font.Color = RGB(0, 0, 0)
        Cell.Characters(Start:=InStr(UCase(Cell.Value), UCase(QueryTerm)), Length:=Len(QueryTerm)).Font.Color = RGB(255, 0, 0)
        Cell.Characters(Start:=InStr(UCase(Cell.Value), UCase(QueryTerm)) + Len(QueryTerm) + 1, Length:=Len(Cell.Value) - InStr(UCase(Cell.Value), UCase(QueryTerm)) - Len(QueryTerm)).Font.Color = RGB(0, 0, 0)
    Else
        Cell.Characters(Start:=1, Length:=Len(Cell.Value)).Font.Color = RGB(0, 0, 0)
    End If
Next Cell
End Sub

[kiran527]

For example

in a cell if i have text like " Hi this is kiran"
i just want to make text "kiran" as bold and rest of them should be normal before that i need to search this string "kiran" in all the cells in the excel sheet and should make it as bold

is this possible

[kiran527]

Any help ????

[Fotis1991]

Doesn't suggestion of post#3, works for you?