Hej Alvingossen

Du kan använda mitt exempel nedan:

Private Sub MakePartOfCellBold()

Dim strSearchCriteria As String
Dim lngInc1 As Long
Dim lngStartBoldChar As Long

' Ange ordet som ska fet markeras
strSearchCriteria = "Vill"

lngInc1 = 0
Do Until lngInc1 > ThisWorkbook.Sheets(1).UsedRange.Rows.Count
lngStartBoldChar = InStr(1, ThisWorkbook.Sheets(1).Cells(lngInc1 + 1, 1).Value, strSearchCriteria)
If lngStartBoldChar>0 Then
ThisWorkbook.Sheets(1).Cells(lngInc1 + 1, 1).Characters(lngStartBoldChar, Len(strSearchCriteria)).Font.FontStyle = "Bold"
End if
lngInc1 = lngInc1 + 1
Loop

End Sub