Get Drop Down ComboBox Text Value VBA

[manali7120]

When I use this code it works
Sub DropDown11_Change()
'Insert Selection into fac
With ActiveSheet.Shapes("Drop Down 11").ControlFormat
MsgBox "Item chosen = " & .List(.Value)
End With

But I would like to set my fac= the value of what the msg box comes up with but this doesn't work:

Dim fac As String

ActiveSheet.Shapes("Drop Down 11").Select
fac = ActiveSheet.Shapes("Drop Down 11").ControlFormat.Value
It comes up as another value "1/2/3" instead of "NN/KK" which is the text in the drop down menu

What should I change?

[extremis]

fac = ActiveSheet.Shapes("Drop Down 11").ControlFormat.Value

try

fac = ActiveSheet.Shapes("Drop Down 11").ControlFormat.text
or
fac = ActiveSheet.Shapes("Drop Down 11").ControlFormat.string

[Norie]

Do you have any other drodowns in the workbook?

[manali7120]

It still comes up as '7' instead of the facility name selected.

[Kenneth Hobson]

I don't see the problem. Maybe you should attach an example file?

As Norie said, you may have reassigned the macro if you added another form control ComboBox.

Please Login or Register  to view this content.

[manali7120]

With ActiveSheet.Shapes("Drop Down 13").ControlFormat
bldg = .List(.Value)

this worked! if you don't want the msg box