You could do this with VBA.

To test cell A1:

Sub StrikethoughTest()
If Range("A1").Font.Strikethrough = True _
Then
MsgBox ("Cell A1 is using Strikethrough.")
Else
MsgBox ("Cell A1 is NOT using Strikethrough.")
End If
End Sub


To test the active cell:

Sub StrikethoughTest()
If ActiveCell.Font.Strikethrough = True _
Then
MsgBox ("Cell " & ActiveCell.Address & " is using Strikethrough.")
Else
MsgBox ("Cell " & ActiveCell.Address & " is NOT using
Strikethrough.")
End If

End Sub

HTH,
Paul


"JFD_TP" wrote in message
...