Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
check box Error
Here is the code I found on this site... and get and error on the last
line... starts with Shapes(Shapes.Count...... Any Ideas? Thanks so much! Sub AddCheckBoxes() 'Add A Forms CheckBox Dim Cell As Range Dim Col As String Dim LinkCol Dim R As Long Dim Value Col = "B" Value = "Mark" LinkCol = "D" For R = 1 To ActiveSheet.Cells(Rows.Count, Col).Row Set Cell = ActiveSheet.Cells(R, Col) If Cell.Value = Value Then With ActiveSheet.Shapes ..AddFormControl xlCheckBox, Cell.Left, Cell.Top, Cell.Width, Cell.Height End With Shapes(Shapes.Count).ControlFormat.LinkedCell = Cell.(R, LinkCol).Address End If Next R End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime 9 error Check. | Excel Worksheet Functions | |||
Error Check Dates | Excel Discussion (Misc queries) | |||
If statement error check | Excel Worksheet Functions | |||
Error check on sheet | Excel Programming | |||
Error check and resume | Excel Programming |