Ciao, non hai inserito un esempio ln modo che si capisse meglio il problema, parli di Checkbox sul foglio oppure in una userform?
Mario Salute, parlava di Checkbox, ma il tuo codice si adatta ad ogni oggetto quindi anche checkbox, quindi basta sostituire CommandButton
comunque sul foglio o sulla userform è lo stesso devi sempre lanciare la modifica in qualche modo, eccoti un esempio con il checkbox sul Foglio
l'ho legata al cambiamento della cella "C2"
qauesta è la macro che ho usato inserita nel modulo del foglio
Sub Cambia()
Dim d
d = Range("C2")
CheckBox1.Caption = d
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c2]) Is Nothing Then Cambia
End Sub
visto che parli di 6 Checkbox, ed ammettendo che i testi siano da C1 a C6 allora puoi usare questa, tenendo anche conto che non hai cambiato i nomi alle CheckBox, cioè siano nominati CheckBox1-2-3-etc
Sub Cambia()
Dim x
For x = 1 To 6
Controls("CheckBox" & x).Caption = Cells(x, 3)
Next x
End Sub
a questo punto con un pulsante lanci la macro Cambia che si deve trovare nel modulo del foglio dove siano le Checkbox
.Fai sapere, Ciao By Sal (8-D