【VBA】セルに取り消し線を引く

以下のように
　・取り消し線を引く
ことが出来ます！

VBAコード

ここでは例として、
　・シート「sample」のセル「B5」に
　・取り消し線
を引きます。

Sub sample()
    '取り消し線を引く
    Worksheets("sample").Range("B5").Font.Strikethrough = True
End Sub

「Range(“XX”).Font.Strikethrough」に「True」を指定することで、取り消し線を引くことが出来ます。
※「False」を指定すると取り消し線が消えます。

セルに取り消し線を引くことが出来ました。