VBA code for deleting the strikethrough text in MS excel indicated below: <br />Sub DelStrikethroughText() <br /> 'Deletes strikethrough text in all selected cells <br /> Dim Cell As Range <br /> For Each Cell In Selection <br /> DelStrikethroughs Cell <br /> Next Cell <br />End Sub <br /> <br />Sub DelStrikethroughs(Cell As Range) <br /> 'deletes all strikethrough text in the Cell <br /> Dim NewText As String <br /> Dim iCh As Integer <br /> For iCh = 1 To Len(Cell) <br /> With Cell.Characters(iCh, 1) <br /> If .Font.Strikethrough = False Then <br /> NewText = NewText & .Text <br /> End If <br /> End With <br /> Next iCh <br /> Cell.Value = NewText <br /> Cell.Characters.Font.Strikethrough = False <br />End Sub <br /> <br /> <br />## Hope this is helpful for you.
