J
John
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
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