Strikethrough Property

True if the font is struck through with a horizontal line. Read/write Boolean.

Example

This example sets the font in the active cell on Sheet1 to strikethrough.

Worksheets("Sheet1").Activate
ActiveCell.Font.Strikethrough = True