Check if font in cell is strikethrough

Hello,

Plese see attached workbook cell A1.
I am running the following script to check if the cell font is a strikethrough.

Please Login or Register  to view this content.

The script returns "The content of the cell is not strikethrough." even though the cell is a stikethrough font.
Interestingly, if I type anything in the cell, it will return : "The content of the cell is a strikethrough."

What should I do to rectify this?
I have a long spreadsheet to check; tried to copy / paste values before running the script but that doesn't help.
Could you please advise?

Thanks.

Hello,

something weird in the cell formatting so first just cancel strikethrough then once done retry strikethrough …
By the way it can be achieved with a single codeline only !
Just remove the useless from your code like On Error and the range variable as well
just using directly ActiveCell like you can see in the VBA help sample of strikethrough.

Mark,
Thanks for looking into this.
I cannot cancel the strikethrough because the purpose of this script is to detect which cells are striked out.
So, if I would go and cancel it out, then all my cells will be non strikethrough which defeats the purpose.

I was able to accomplish what I need with this script:

Please Login or Register  to view this content.

As once the useless is removed that just needs an unique codeline : MsgBox IIf(ActiveCell.Font.Strikethrough, "Yes", "No") …