If you're going with the UDF I would advise a small change.
Rich (BB code):Function ist(r1 As Range) As Boolean Application.Volatile ist = r1.Font.Strikethrough End Function
The op wants to return a 1 or a 0:
I'd like to write a formula - something like: If (effect in A1 = strikethrough, 1, 0)
I'm just saying that if the op wants to return a 0 or 1 as per the example given, you could write the UDF to do exactly that, rather than embed it in an IF function.
Are you psychic?