Hallo Leon,
oder so:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then CheckBox1.Caption = Range("A1").Value End If End Sub
Gruß
jofed