Checkbox (Objekt erforderlich - 424)

Private Sub A1_chkbox_Click()
chko = A1_chkbox.Object
chkn = A1_chkbox.Name
Call chkbox(chko, chkn)   'Modul-Aufruf chkbox
End Sub

Public Function chkbox(chko, chkn)
MsgBox "chkn = " & chkn  'wird korrekt angezeigt
MsgBox "chko = " & chko  'wird korrekt angezeigt
If chko = True Then
chkn.Caption = Date & " " & Time
' ==> bei chkn.Caption kommt die Fehlermeldung
' ==> Laufzeitfehler 424
' ==> Objekt erforderlich
Range(chkn.LinkedCell).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
Else
chkn.Caption = "Offen"
Range(chkn.LinkedCell).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Function