How to extract info based on a strike through

[JSH720]

My spreadsheet has rows that have strikethroughs for the formatting. I need t do some sort of macro or formula that says something like, if the formatting in A1 is strike through, place an "X" in column Z. How can I accomplish this?

Thank You!

 

[Fluff]

How about

Sub JSH720()
   Dim Cl As Range
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      If Cl.DisplayFormat.Font.Strikethrough = True Then Cl.Offset(, 25).Value = "x"
   Next Cl
End Sub

 

[JSH720]

How about

Sub JSH720()
   Dim Cl As Range
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      If Cl.DisplayFormat.Font.Strikethrough = True Then Cl.Offset(, 25).Value = "x"
   Next Cl
End Sub

This looks perfect! I can change it if I want to use another font type, so it is extremely useful to me. Much appreciated!

 

[Fluff]

You're welcome & thanks for the feedback