[vba]ActiveSheet.Shapes("Drop Down 1").ControlFormat.Value = 1[/vba]