Expert: Tom Ogilvy - 4/22/2008

Question
"Hi there,

I am brand new to VB, but have been using Excel for quite some time. I have a spreadsheet with multiple tabs. One column in each tab needs to have almost the entire column (minus headers)with a checkbox in it. This does not have to link to anything or do any calculations. All i need is to have the end user able to check and uncheck the box. I am unable to get the checkbox feature into all my cells unless i copy and paste (or insert using forms function)each one individually? Do you know of a way to a) insert the checkbox into particular chunks of cells, and b) ensure that all checkboxes line up at the same point in each cell?  As well i would like to know how to get the check box to be deleted or inserted with each addition or deletion of rows?

Thanks.

Answer
Select the range where you want checkboxes and run the macro:

Sub AddCheckboxes()
Dim cb As CheckBox
Dim cell As Range
' delete existing boxes
For Each cb In ActiveSheet.CheckBoxes
 cb.Delete
Next
Selection.EntireRow.RowHeight = 22.5
For Each cell In Selection
  cell.Select
 Set cb = ActiveSheet.CheckBoxes.Add( _
   Left:=cell.Left, _
   Top:=cell.Top, _
   Width:=cell.Width, _
   Height:=cell.Height)
 cb.Caption = ""
Next
Selection.EntireColumn.ColumnWidth = 2.5
End Sub


The macro should be placed in a general module, not the sheet module or the Thisworkbook module.  

Since it clears all existing checkboxes on the sheet, you can run the macro whenever you have made changes.

There is no good event for trapping when a row has been deleted in most versions of Excel and None for when one has been added as I recall.  

--
regards,
Tom Ogilvy