If cell has strikethrough, state true in adjacent column

[megametro]

Hi there,

This is my first post here!
I'm new to VB, I've trawled the net, but can't seem to find a solution to my problem.

Column A contains 4000+ numerical values, some of which have strikethroughs.
I'd like Column B to flag a TRUE/FALSE if there is/isn't a strikethrough in the corresponding A column.

This is what I've come up with... although something is off and I can't figure out what.

Any help would be greatly appreciated!

Option Explicit

Sub strikethrough()
Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> Cells.Font.strikethrough = True
Cells(i, 2).Value = "FALSE"
i = i + 1
Loop


End Sub