True if the font is struck through with a horizontal line. Read/write Boolean.
Syntax
expression.Strikethrough
expression A variable that represents a Font object.
Example
This example sets the font in the active cell on Sheet1 to strikethrough.
Worksheets("Sheet1").Activate
ActiveCell.Font.Strikethrough = True