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