Mark Check box of Form controls if specific text exists in specific entire column

i need to Check box of Form controls to be selected and un selected automatically if specific text exists in specific entire column

i tried below code in the sheet code

 Dim New As Worksheet
 Set New = ThisWorkbook.Worksheets("TestSH")
 Dim Rng As Range
 Set Rng = New.Range("A1:A")

 If Rng.Value = "Text" Then
     New.CheckBoxes("XXX").Value = True
 Else
     New.CheckBoxes("XXX").Value = False
 End If

and how to change the name correctly of the check box i tried to change it from name box located in the formula bar after selecting the check box button