delete the strikethrough cells in a range using vba
<p>I have 500 rows and around 13 columns of data in a sheet.</p>

<p>I need to delete the cell contents itself even if the cell contains all the characters as strike-through, but if the cell contains combination of some text and strike-through it should delete the strike-through alone and leave the remaining text in the cell.</p>

<p>Here is how my excel looks like</p>

<pre><code>  A      B               C   D   E   F   G   H   I   J   K    L       M
 1.2   SERVER_P                  RE1                        **GR5** 
 7.3   PROXY NET
 4.5   NET **CON** V1                            GR
</code></pre>

<p>If text inside ** are strike-through I expect, in 1st row column L should be empty and in 3rd row it should delete CON , so it should remain "NET V1".</p>

<p>Here is what I have till now</p>

<pre><code>Dim Cell As Range
Dim iCh As Integer
Dim NewText As String
Sheets("Copy_indications").Select

With ActiveSheet
     'count the rows till which strings are there
     Lrow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With

For Each Cell In Range("B1:M" &amp; Lrow)
     For iCh = 1 To Len(Cell)
        With Cell.Characters(iCh, 1)
           If .Font.Strikethrough = False Then
              NewText = NewText &amp; .Text
           End If
        End With
     Next iCh
 NewText = Cell.Value
 Cell.Characters.Font.Strikethrough = False
Next Cell
</code></pre>

<p>My macro deletes all the strike-through characters if the cell contains combination of some text and strike-through, but if the cell contains all the characters as strike-through, it does not delete them instead it removes the strike from them.</p>

<p>Could someone help me with this.</p>