Detecting if the cell contains strikethrough is not working

[Ogun999]

Hi,

I am trying to detect which cells contain text that is strikethrough, but my loop is passing over a bunch of cells without detecting the strikethrough text in them.

Here's my Code:

Private Sub FilterList()

    Dim ws As Worksheet
    Dim rngCheck As Range, rng As Range
    Dim lastRow As Long
    Dim lastCol As Long
   
   
   
 
    Set ws = ThisWorkbook.Sheets(1)
   

    lastCol = ws.UsedRange.Find("reference").column
   
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).row
   
    Set rng = ws.Range("A1:" & Chr(64 + lastCol) & CStr(lastRow))
   
   
   
    For Each rngCheck In rng.SpecialCells(xlCellTypeVisible)
       
        rngCheck.Select
       
        If rngCheck.Cells.Font.Strikethrough = True Then
          rngCheck.Cells.Interior.Color = RGB(255, 0, 0)
        Else
       
        End If
   
    Next rngCheck
   
   
End Sub

 

[Ogun999]

I found the answer. I had to check using IsNull. Here's the new code:

Private Sub FilterList()

Dim ws As Worksheet
Dim rngCheck As Range, rng As Range
Dim lastRow As Long
Dim lastCol As Long




Set ws = ThisWorkbook.Sheets(1)


lastCol = ws.UsedRange.Find("reference").column

lastRow = ws.Cells(Rows.Count, 1).End(xlUp).row

Set rng = ws.Range("A1:" & Chr(64 + lastCol) & CStr(lastRow))



For Each rngCheck In rng.SpecialCells(xlCellTypeVisible)

rngCheck.Select

If IsNull(rngCheck.Cells.Font.Strikethrough) Then
rngCheck.Cells.Interior.Color = RGB(255, 0, 0)
Else

End If

Next rngCheck


End Sub

 

[Fuji]

Are you sure?
If the cell has strikethrough all the way, IsNull returns False.

Private Sub FilterList()

    Dim ws As Worksheet
    Dim rngCheck As Range, rng As Range
    Dim lastRow As Long
    Dim lastCol As Long
    Set ws = ThisWorkbook.Sheets(1)
    
    lastCol = ws.UsedRange.Find("reference").Column
    
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    Set rng = ws.Range("A1", ws.Cells(lastRow, lastCol))
    
    For Each rngCheck In rng.SpecialCells(xlCellTypeVisible)
        
        If rngCheck.Font.Strikethrough Then
            rngCheck.Cells.Interior.Color = RGB(255, 0, 0)
        ElseIf IsNull(rngCheck.Cells.Font.Strikethrough) Then
            rngCheck.Cells.Interior.Color = RGB(255, 0, 0)
        End If
    Next rngCheck


End Sub