I got this to work on a single test cell. Try it out and see if you can use
it.

Sub sl()
For i = Len(Range("B3").Value) To 1 Step -1
If Range("B3").Characters(i, 1).Font.Strikethrough = True Then
Range("B3").Characters(i, 1).Delete
End If
Next
End Sub





"Ralph" wrote in message
...
I work with a spreadsheet staffing roster and I use VBA to copy and format
information from the roster to other spreadsheets. People who maintain the
roster enter names of planned vacation or training and if these don't take
place they change the font to strikethrough afterwards. There may be more
than one name in a cell so I often get something like:

Smith / Jones

with Jones in strikethough

Within my VBA procedures I'd like to identify the strikethorugh characters
and delete them so in the above example I'd just copy 'Smith' to another
spreadsheet.

TIA for any help or suggestions