Setting All Form Control Combo Boxes To A Specified Value

Hello everyone,

I am attempting to place a button in a Excel spreadsheet that upon clicking will set every combobox on the spreadsheet to the first value of the combobox (I am hoping to create different buttons to set all comboboxes to other values). There are a few hundred combo boxes on this spreadsheet so I am looking for a more efficient way than what I have posted below:

Sub Button1_Click()
ActiveSheet.Shapes("Drop Down 1").ControlFormat.Value = 1
ActiveSheet.Shapes("Drop Down 2").ControlFormat.Value = 1
ActiveSheet.Shapes("Drop Down 3").ControlFormat.Value = 1
ActiveSheet.Shapes("Drop Down 4").ControlFormat.Value = 1
ActiveSheet.Shapes("Drop Down 5").ControlFormat.Value = 1

...
End Sub

I could copy and paste this and change the combobox name on every line but that would be quite tedious.

Thanks all!

Please Login or Register  to view this content.

This works perfectly! Thank you!!