Dropdown Box On Worksheet

  • Thread starter Thread starter Rick
  • Start date Start date
R

Rick

Hi,

With the dropdown box placed on the worksheet, I've got
everything to work properly - by using the control format
and assigning a macro.

After running the first part of the macro, how do I reset
the dropdown box so that it starts with the first item in
the list?

Sub DropDownBox10()
'~~~Dim Variables~~~

'~~~Code~~~

'~~~Psuedo Code:
'ActiveSheet.Shapes("Drop Down 10").ListIndex = 1
End Sub

Possibly it can't be done that way on a worksheet, but I
thought I would run it by you all.

Thanks, Rick
 
Hi Rick,
With the dropdown box placed on the worksheet, I've got
everything to work properly - by using the control format
and assigning a macro.

After running the first part of the macro, how do I reset
the dropdown box so that it starts with the first item in
the list?

Sub DropDownBox10()
'~~~Dim Variables~~~

'~~~Code~~~

'~~~Psuedo Code:
'ActiveSheet.Shapes("Drop Down 10").ListIndex = 1
End Sub

Possibly it can't be done that way on a worksheet, but I
thought I would run it by you all.
Click to expand...

use this Syntax:

ActiveSheet.Shapes("Drop Down 10").ControlFormat.ListIndex = 1

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
 
Melanie,

Wow! Thanks! Just when I think it can't be done, one of
you have an answer.

Thanks so much, Rick
-----Original Message-----
Hi Rick,


use this Syntax:

ActiveSheet.Shapes("Drop Down
Click to expand...
10").ControlFormat.ListIndex = 1
 
Back
Top