Strikethrough Eigenschaft funzt nicht

folgendes Makro funktioniert nicht:

Private Sub CheckBox1_Click()
Dim Adresse As String
Adresse = CheckBox1.LinkedCell

With ActiveWorkbook.ActiveSheet.Range(Adresse).Font
.Strikethrough = True
End With

End Sub

Es kommt immer Laufzeitfehler 1004, Strikethrough Eigenschaft kann nicht festgelegt werden.

Kann mir da jemand weiterhelfen?

Gruß,

Carsten