Delete Strikethrough Rows.vb

Sub Delete_Strikethrough_Rows()
    
    Dim ws As Worksheet
    Dim LastRow As Long, RowNumber As Long
        
    Application.FindFormat.Font.Strikethrough = True
    
    Set ws = ThisWorkbook.ActiveSheet
    
    With ws
    LastRow = .Cells(Rows.Count, "C").End(xlUp).Row
        
        For RowNumber = LastRow To 4 Step -1
            
            If .Cells(RowNumber, "C").Font.Strikethrough = True Then
                    
                .Rows(RowNumber).Delete
        
            End If
        
        Next RowNumber
    
    End With
    
    Set ws = Nothing

End Sub