checkbox name/properties

hello everyone,
I have this code

Sub pridanie()

With Sheets("pin2")
If .CheckBoxes("Check Box 2").Value = xlOn Then
    Sheets("data").Select
    Range("A2:A30").Select
    Selection.Copy
    Sheets("pin2").Select
    Range("M1").Select
    ActiveSheet.Paste
Else
    Range("M1:M30").Select
    Selection.ClearContents
End If
End With

End Sub

and I need only one thing : checkbox is now named "Check box 2" it is possible to rename it somehow to e.g. "pin2" ? (it means like this :

If .CheckBoxes("pin2").Value = xlOn Then

because I have more than one checkboxes and after some time it will be difficult to know which checkbox has its name ... thanks !