Applies To
Font Object.
Description
True if the font is struck through. Read-write.
Example
This example sets the font in the active cell on Sheet1 to strikethrough.
Worksheets("Sheet1").Activate ActiveCell.Font.Strikethrough = True