Partial Strikethrough in Excel

[shant Youkhana]

I have a data set where I want to redline (strikethrough with red font) specific word within the cell. For example I want to strikethrough, in red fond, the word "Car" and the word "house" from all the cell in the data set. I really dont know how to code any Macros, any help would be appreciated.

 

[Zot]

Maybe something like this. Just select the cell and run code. Select B2 in this case

New Microsoft Excel Worksheet.xlsx
	A	B	C	D
1
2		I have a car in my house
3
4
5
Sheet1

The macro

Option Compare Text

Sub ColorStrike()

Dim wd1 As String, wd2 As String
Dim cell As Range

Set cell = ActiveCell
wd1 = "house"
wd2 = "car"

With cell.Characters(Start:=InStr(cell, wd1), Length:=Len(wd1)).Font
    .ColorIndex = 3
    .Strikethrough = True
End With

With cell.Characters(Start:=InStr(cell, wd2), Length:=Len(wd2)).Font
    .ColorIndex = 3
    .Strikethrough = True
End With

End Sub