VBA issue incorporating active sheet name with check box reference

I have form object check box's that I wish to control using a dynamic reference. The check box number is in the format "Check Box ?" the "?" is a number from 1 to 21 which happens to reflect the sheet name that it is connected with. The sheets are named with numbers starting with "1" up to "21"

Here is my attempt at the code:

Dim Box As String
Dim Sheet As Sring
Box = "Check Box "
Sheet = ActiveSheet.Name
    
      Sheets("Index").Shapes(Box & Sheet).ControlFormat.Value = True

I suspect I may need to re arrange the quotation marks as the basic syntax is is

    
      Sheets("SHEET NAME").Shapes("CHECK BOX NAME").ControlFormat.Value = True

I need to place this code on all 21 sheets and rather than manually specify the Check Box name on each sheet I'd like the code to incorporate the sheet name in the check box reference if possible..
Thanks in advance,

Mick.

I managed to work it out myself

Dim Text, Sheet, CheckBox
    
    Text = "Check Box"
    
    Sheet = ActiveSheet.Name
    
    CheckBox = Text & " " & Sheet

Sheets("SHEET NAME").Shapes(CheckBox).ControlFormat.Value = True

I tried applying this to a ActiveX check box (as opposed to a form object check box) but can't see m to get it to work

  Dim Text, Sheet, CheckBox
    Text = "CheckBox"
    Sheet = ActiveSheet.Name
    CheckBox = """ & Text & Sheet & """
 


      Sheets("Index").CheckBoxes(CheckBox).Value = False

I also tried

  Dim Text, Sheet, CheckBox
    Text = "CheckBox"
    Sheet = ActiveSheet.Name
    CheckBox = Text & Sheet
 


      Sheets("Index").CheckBox.Value = False