With forms (activate Event) you can use something like the following;
the key being the .locked property of the combobox.


-----------------------------------
If Cell = yes then
Me.ComboboxName.locked = true
Else
Me.ComboboxName.locked = False
End if
------------------------------------


If the form needed to change  dynamically you would have to use a
worksheet change event to trap the Cell change and then run the above
again.

...this sorts out the locking but how do I change  the combobox  value ?
eg. if cell="Yes" then combobox must equal "Export" ?

Add the line:

ComboboxName.Value = "Export"

Or

ComboboxName.Value = ComboboxName.list(1)

' the Numbe(1) being the position in the dropdown list starting with 0
for the first

.I've used the following code :-
"ActiveSheet.Shapes("Drop Down 56").Locked = True" this works ok
but
"ActiveSheet.Shapes("Drop Down 56").Value = "Export" " doesn't.
What am I doing wrong ?

I was assuming a FORM, but a shape is a bit different - I think it
requires .Name instead of .value.

worth a try but still no go !!!!!!!!!!!!!

"pre - coffee excuse"? . . . I'm an ordained minister and I'm not
even sure if I believe in God before coffee. And, the idea that I
might exist is way beyond hallucinations. (Checking my vital signs,
in case I'm not alive . . . stay tuned.)

Is "Export" a valid choice  in the combo  box? I doubt if you can set its
value via VBA to something you can't select with the mouse.

Are you getting an error or is it simply not doing anything?

"Export" is one of the choices in the combobox.
I'm trying to get VBA to choose "Export" if a particular cell
reads "Yes".

If you are using an OLEObject ComboBox (NOT a form) then play with the
following in the Worksheet.

With ComboBox1
Debug.Print .List(1)
Debug.Print .Name
Debug.Print .Value
.Value = .List(4)
Debug.Print .Value
End With

The problem might be with "Locked". It isn't what you think it is. (I've
just read the MSDN explanation, and I can't really see what it is - just
what it isn't.)

I've just put a combo  box on my active sheet and hit it with code in a
command button click event. This works fine.

Option Explicit

Private Sub CommandButton1_Click()
If ComboBox1.Enabled Then
Range("A2") = "Unlocked"
ComboBox1.Enabled = False
ComboBox1.Value = "Export"
Else
Range("A2") = "Locked"
ComboBox1.Enabled = True
End If
End Sub

The box  is filled from a short cell  range, which includes "Export" as one of
the values (the last one, but that probably doesn't matter.) And the box is
linked to A1 where I can see that the value is being put in quite OK when I
disable the box and set its value.

just what I needed to get me going.
Regards