Renommer plusieurs cases à cocher en VBA

Option Explicit
'https://excel.developpez.com/faq/?page=ObjFormulaire#BoucleCasesCocher
'https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI
Sub BoucleCheckBoxes_Formulaire()
    Dim Cb As CheckBox
 'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Application.ScreenUpdating = False
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    'Boucle sur les checkboxes formulaires de la Feuil
    For Each Cb In Ws.CheckBoxes
        If Cb.Caption = "moi" Then  'adapter ancien nom
           ' MsgBox Cb.Name
            Cb.Caption = "toi" ' adapter nouveau nom
       End If
    Next Cb
    Next Ws
Application.ScreenUpdating = True
End Sub