Posted 29 January 2012 - 05:05 PM
I am trying to instal checkboxes in all of my columns and then have each checkbox linked to the one after it. If B is checked, then A should be checked. Well This is what is so far, and Excell continues to spit an error at me.
For x = 2 To 140
Set c = Cells(x, "G")
n = "Choice_" & Format(x, "00")
With ActiveSheet.OLEObjects.Add( _
.Name = n
.LinkedCell = c.Address
.Object.Caption = NoCaption
If Cells(x, "G") = "TRUE" Then Cells(x, "F") = "TRUE"
ActiveSheet.Shapes(n).Placement = xlMoveAndSize
c.Value = False
Most of this macro was copied from another site and it seemed to work for the column to fill down, when I tried to insert the code for the row it started to work and then threw an error in the code that previously worked.
Any help is greatly appreciated.
Thank you all.