CheckBox Placement Problem

[npongar]

I have a sheet that contains numerous forms checkboxes in the same column on consecutive rows. I have all the checkboxes set to "move but don't size with cells". Each row has cells that are set to autofit the row height to match the contents. My problem is when a lot of text is entered and a row expands, it messes up the placement of my checkboxes, and I end up with two checkboxes in one cell, and no checkboxes in the cell below it.

Any suggestions on how to fix this?

 

[SkipVought]

hi,

How 'bout this?

Sub AlignCheckBoxes()
    r = 1   'first row for checkbox
    For Each sh In ActiveSheet.Shapes
        sh.Top = Cells(r, 1).Top
        sh.Left = Cells(r, 1).Left
        r = r + 1
    Next
End Sub

;-)

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884