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