checkbox name/properties

[miso.dca]

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 !

[royUK]

Select the CheckBoxthen you will see it's name in the Name Box at the top of the sheet. Change it in the name box & click Enter

[royUK]

Your code will run more efficiently if you do not Select sheets and/or Ranges

Sub pridanie()

    With Sheets("pin2")
        If .CheckBoxes("pin2").Value = xlOn Then
            Sheets("data").Range("A2:A30").Copy Sheets("pin2").Range("M1")
        Else: Range("M1:M30").ClearContents
        End If
    End With
End Sub

[miso.dca]

yes, I did it before but I've got this message : "Unable to get the Checkboxes property of the Worksheet class" (btw. I can't named it "PIN2" because after clicking enter Excel got on cell PIN2, I have to use PIN-2 (this isnt problem) )

[royUK]

yes, I did it before but I've got this message : "Unable to get the Checkboxes property of the Worksheet class" (btw. I can't named it "PIN2" because after clicking enter Excel got on cell PIN2, I have to use PIN-2 (this isnt problem) )

Not sure what you mean, attach the workbook

[miso.dca]

ok, I uploaded excel with my problem, thanks for help !
(btw. there are two checkboxes ... first which is named pin-2 (I renamed it - from check box 1 to pin-2) and second which I didnt renamed and it has name check box 2)

[royUK]

I've added a CheckBox from the Forms menu & renamed it Pin2 & the code runs fine

Sub pridanie()

    With Sheets("pin2")
        If .CheckBoxes("Pin2").Value = xlOn Then
            Sheets("data").Range("A2:A30").Copy Sheets("pin2").Range("M1")
        Else: Range("M1:M30").ClearContents
        End If
    End With
End Sub

[miso.dca]

heh ... that's strange ... first I named it "pin" and it didnt work, now I named it "pin" and everything is fine but "pin-2" doesnt work, maybe because of "-" ... who knows but now everything is fine, thanks ! (I was wondering how you could named checkbox "pin2" but never mind in my excel if I write in name box "pin2" and click on enter excel will always jump to cell in column PIN and row 2