Strike through

[Peterfc2]

How can I add strike through to all my workbook sheets if certain cell value found?
If the text Home is found then it should have strike though applied like Home

 

[Michael M]

Use

Sub MM1()
Dim cel As Range, ws As Worksheet
For Each ws In Worksheets
    With ws
        For Each cel In .UsedRange
            If cel.Value = "Home" Then cel.Font.Strikethrough = True
        Next cel
    End With
Next ws
End Sub

 

[Peterfc2]

Works with a test wb but stops with
If cel.Value = "Home" Then etc on my main workbook

 

[Michael M]

Works with a test wb but stops with
If cel.Value = "Home" Then etc on my main workbook

Is home spelled with a capital?
Are any of the sheets protected?

 

[Peterfc2]

I added wildcards "*Home*" hoping it would work on 'Home and Away' or 'Away and Home', it didn't.

 

[Rick Rothstein]

That is a completely different problem from what your first post hinted at (namely, that the cell value would be the word "Home"). Did you want to strikethrough all the text in the cell or just strikethrough the word "home"?

 

[Peter_SSs]

Also,

1. Can you estimate how big the used range is on your sheets (rows x columns) and what percentage of cells might contain the word "Home"?

2. Do we have to look in all columns that contain data or might we only have to look at, say, columns B, F and J?

3. Is it possible that a cell could contain something like "Large Homes" where "Home" is part of a larger word and, if so, do you still want strikethrough?

4. What, exactly, do you mean by "stops"

Works with a test wb but stops with

5. Is it possible to have "home and away" and, if so, do you still want strikethrough?

 

[Michael M]

You didn't tell us it was a partial string.!!
Try using

Sub MM1()
Dim cel As Range, ws As Worksheet, i As Integer, pos As Integer
For Each ws In Worksheets
    With ws
        For Each cel In .UsedRange
            For i = 0 To Len(cel.Value)
                pos = InStr(cel.Value, "Home")
                    If pos > 0 Then
                        cel.Characters(pos, Len("Home")).Font.Strikethrough = True
                    End If
            Next i
        Next cel
    End With
Next ws
End Sub

 

[Peterfc2]

Sorry for any confusion. MichaelM solution works perfectly. TY

 

[Michael M]

Glad to help