Dynamically create checkboxes

[tomas]

Hi based on link below I created a macro which is supposed to create checkboxes for every value from dynamic range. WHile running I got an compile error "incorrect use of ME keyword" . Can someone explain ?

thanks

http://stackoverflow.com/questions/...-based-on-cell-value?answertab=active#tab-top

Sub test()

Dim i As Integer
Dim cell As Range
Dim chkbox As MSForms.CheckBox
Dim x As Integer

i = Range("A1", Range("A1").End(xlDown)).Cells.Count
For x = 1 To i
   Set chkbox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox_" & x)
    chkbox.Caption = Worksheets("List1").Cells(i, 1).Value
    chkbox.Left = 5
    chkbox.Top = 5 + ((i - 1) * 20)

Next x
End Sub

 

[Chihiro]

Are you adding above code in standard module?

If so, add the code to the sheet or Userform where you are adding Checkbox.

Here's link to post by Luke M that has excellent explanation about "Me".
http://forum.chandoo.org/threads/proper-use-of-me-in-vba.14980/#post-89667

 

[tomas]

Hi thanks for the link now I understand what me means.

About to other stuff I added the subroutine into the worksheet code and now I get compile error that "controls" method or data member are not found

 

[Chihiro]

That's because the code is meant for UserForm and not worksheet

Try modifying the code in the link to suite your need.
http://www.mrexcel.com/forum/excel-...s-through-visual-basic-applications-code.html

 

[Marc L]

Hi !

Copy / Paste can't be Coding …

​