Strikethrough Property Example

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

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