Sub for Creating Checkboxes

[IREALLYambatman]

Hey guys. So I've managed to modify some coding I found here to insert checkboxes into a file I'm working on. I am trying to make it into a Macro that I would call from another macro that that would place checkboxes in the center of the Range I would give it.. ie. Call CB("A1:B5") And that would place checkboxes in that whole range. I'd appreciate any help

Sub CB()

Dim cell, LRow As Single
Dim chkbx As CheckBox
Dim CLeft, CTop, CHeight, CWidth As Double


 


For cell = 6 To 27
        CLeft = Cells(cell, "E").Left
        CTop = Cells(cell, "E").Top
        CHeight = Cells(cell, "E").Height
        CWidth = Cells(cell, "E").Width
 
        ActiveSheet.CheckBoxes.Add(CLeft + (CWidth / 2), CTop, CWidth, CHeight).Select
        With Selection
            .Caption = ""
            .value = xlOn
            .Display3DShading = False
        End With
Next cell

 

[jolivanes]

Re: Help Creating a Sub for Creating Checkboxes

Quote: "place checkboxes in the center of the Range I would give it.. ie. Call CB("A1:B5") And that would place checkboxes in that whole range"
To me, clear as mud

 

[Leith Ross]

Re: Help Creating a Sub for Creating Checkboxes

Hello IREALLYambatman,

Perhaps something like this...

Sub CB(ByVal Address As String)

    Dim cell As Range
    Dim chkbx As CheckBox


        For Each cell In Range(Address)
            With ActiveSheet.CheckBoxes.Add(cell.Left + (cell.Width / 2), cell.Top, cell.Width, cell.Height)
                .Caption = ""
                .Value = xlOn
                .Display3DShading = False
            End With
        Next cell


End Sub

 

[IREALLYambatman]

Re: Help Creating a Sub for Creating Checkboxes

Thank you Keith , that’s wexactly what I needed!

 

[Leith Ross]

Re: Help Creating a Sub for Creating Checkboxes

Hello IREALLYambatman,

You're welcome.