I have to solve a big problem. I have a recorded grouped object. It consists of a lot of checkboxes with code behind all of them and 10 buttons. I have it by userform command copy and pasting to another worksheet in the workbook. It is an option for editing the cells it will cover. Problem is when it fires. It makes a lot of random checkboxes further over in the book.
Have I created a loop somehow or is there a stop I can write in to keep it from doing this. When I recorded it it did not do this.
Here is the recorded code"
Any help?
DThib
Have I created a loop somehow or is there a stop I can write in to keep it from doing this. When I recorded it it did not do this.
Here is the recorded code"
Code:
Sub Group1_ProI()
'
' Group1_ProI Macro (21Aug2018 D Thibodeaux)
'
Sheets("Frame Job").Select
Range("K40").Select
ActiveSheet.Shapes.Range(Array("Proinflame")).Select
Selection.Copy
Sheets("Results(horizontal)").Select
Range("V2").Select
ActiveSheet.Paste
ActiveSheet.Buttons.Add(48, 612, 39, 45).Select
ActiveSheet.Buttons.Add(96, 612, 39, 45).Select
ActiveSheet.Buttons.Add(144, 612, 39, 45).Select
ActiveSheet.Buttons.Add(192, 612, 39, 45).Select
ActiveSheet.Buttons.Add(240, 612, 39, 45).Select
ActiveSheet.Buttons.Add(288, 612, 39, 45).Select
ActiveSheet.Buttons.Add(336, 612, 39, 45).Select
ActiveSheet.Buttons.Add(384, 612, 39, 45).Select
ActiveSheet.Buttons.Add(432, 612, 39, 45).Select
ActiveSheet.Buttons.Add(480, 612, 39, 45).Select
ActiveSheet.CheckBoxes.Add(48.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 138, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 153, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 168, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 183, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 198, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 213, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 228, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 243, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 258.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 273.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 288.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 303.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 318.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 333.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 348.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 362.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 377.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 392.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 408, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 424.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 439.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 454.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 469.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 484.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 499.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 514.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 529.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 544.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 557.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(48.75, 573, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(48.75, 588, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 138, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 153, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 168, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 183, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 198, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 213, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 228, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 243, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 258, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 273, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 288, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 303, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 318, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 333, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 348, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 363, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 378, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 393, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 408, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 423, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 438, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 453, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 468, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 483, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 498, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(96.75, 513.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 528.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 543.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 558.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 573.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(96.75, 588.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 138, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 153, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 168.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 183.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 198.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 213, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 227.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 243, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 258, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 273, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 288, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 302.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 318, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 333, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 348.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 363, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 377.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 392.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 408, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 423, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 438, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 453, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 468, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 483, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 498, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 513, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 527.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 543, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(144.75, 558.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144.75, 573, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(144, 588.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 138.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 348, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 363, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 377.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 392.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 407.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 422.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 437.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(192.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(192.75, 588, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 138.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 346.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 361.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 375.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 390.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 405.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 420.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 435.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(240.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(240.75, 588, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 138.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 346.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 361.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 375.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 390.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 405.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 420.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 435.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(288.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(288.75, 588, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 138, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 346.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 361.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 375.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 390.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 405.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 420.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 435.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(336.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(336.75, 587.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 138, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 346.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 361.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 375.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 390.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 405.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 420.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 435.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(384.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(384.75, 587.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(432.75, 123, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 138.75, 36, 12).Select
ActiveSheet.CheckBoxes.Add(432.75, 152.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 167.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 182.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 197.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 212.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 227.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 242.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 257.25, 36, 12).Select
ActiveSheet.CheckBoxes.Add(432.75, 271.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 286.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 301.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 316.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 331.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 346.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 361.5, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 375.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 390.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 405.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 420.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 435.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 450.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 465.75, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 480.75, 36, 12).Select
ActiveSheet.CheckBoxes.Add(432.75, 495, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 510, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 525, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 540, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 555, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 570, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(432.75, 587.25, 36, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 123, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 138, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 152.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 167.25, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 182.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 197.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 212.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 227.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 242.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 257.25, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 271.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 286.5, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 301.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 316.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 331.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 346.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 361.5, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 375.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 390.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 405.75, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 420.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 435.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 450.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 465.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 480.75, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 495, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 510, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 525, 38.25, 12.75).Select
ActiveSheet.CheckBoxes.Add(480.75, 540, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 555, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 570, 38.25, 12).Select
ActiveSheet.CheckBoxes.Add(480.75, 588, 38.25, 12).Select
Range("V2").Select
End Sub
Any help?
DThib