Check list via VBA

Hi,

I have a check list in excel with more than 100+ rows. I have also added strike through once I click on the checkbox
my office pc doesn't have the new version of excel with insert-check box feature

so, I found out below vba code that can help... now the problem is this code works for single rectangle shape. and I have 102 rectangles...

my rectangles start from Rectangle 11 to 96 and my strikethrough range is from J4 to J89
and again from rectangle 97 to 102 and strike through range - J95 to J100

is there a shorter way to tweak this code in such a way that it changes the shape number along with the range of strike through? for each rectangle I have to change the range in 3 different lines as shown below (highlighted in purple). I am attaching sample workbook for easier reference.

I know that we have ActiveX check box option from developer tab... and I am currently using it... but it does not allow to increase the size of the small square and it won't allow to change background color either.... so I am trying this one out... Please can someone help!

Please Login or Register  to view this content.

1. Code in Module1

Please Login or Register  to view this content.

2. Code in ThisWorkbook

Please Login or Register  to view this content.

3. Save file -> Close file -> reopen file

Originally Posted by Kinjal Doshi

Is there another code that can help assign this to each rectangles?
my rectangle numbers are from Rectangle 11 to Rectangle 102

Use code:

Please Login or Register  to view this content.

Edit: The above macro reports an error because there is no "Rectangle 69". There is "Shape 57".