Create Forms-Check Box down column?

[l2l]

Is there a way to have a macro create check boxes down column B stopping when there is no data in Column A?

thank you. l2l

 

[arch4672]

Try this:

Sub Test()

Dim Row As Integer

Application.ScreenUpdating = False

Row = 1

While Cells(Row, 1) <> ""
    
        ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=Cells(Row, 2).Left, Top:=Cells(Row, 1).Top, Width:=15, Height:=15). _
        Select
        
    Row = Row + 1
        
Wend

Application.ScreenUpdating = True

End Sub

 

[l2l]

Thanks for the reply. The macro looks like it can only be run once before it writes over check boxes placed there before. Any way to modify this?

Thanks,
L2L

 

[arch4672]

Assuming you only have check boxes in your sheet I think this works:

Sub OnlyAddIfBlank()

Dim Row As Integer
Dim NbrOfTickBoxes As Integer

Application.ScreenUpdating = False

NbrOfTickBoxes = ActiveSheet.OLEObjects.Count
StartRow = NbrOfTickBoxes + 1
Row = StartRow

While Cells(Row, 1) <> ""
        
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
    DisplayAsIcon:=False, Left:=Cells(Row, 2).Left, Top:=Cells(Row, 1).Top, Width:=15, Height:=15).Select
    
    Row = Row + 1
    
Wend

End Sub

 

[l2l]

thanks

Thank you this works very well