Hi,

Does anyone know how to name a Check Box in code while creating the box?
Im using a WITH statement and .NAME. This is on an Excel Sheet.

Here is the code:
Sub CreateDropDownBox()
' Create Drop Down Box
Dim DropDown

With Worksheets(1).Shapes.AddFormControl(xlDropDown, _
Left:=150, Top:=10, Width:=100, Height:=10)
.ControlFormat.DropDownLines = 10
.Name = DropDown

End With
ActiveSheet.DropDowns.Select
With Selection
.ListFillRange = "$C$1:$C$6"
.LinkedCell = ""
.DropDownLines = 8
.Display3DShading = False
End With
End Sub

The €˜.Name = DropDown returns €˜The specific value is out of range error
statement.

Any help will be appreciated.

Thanks
Paul