Why does the Combobox not DropDown with the below?


If ComboBox2.Value <> Sheets("References").Range("A2").Value Then
ComboBox23.Enabled = False
If ComboBox2.Value = Sheets("References").Range("A2").Value Then
ComboBox23.Enabled = True
ComboBox23.DropDown
End If

Maybe the datatypes are different? If so, here's one way to work around:


If CStr(ComboBox2.Value) = CStr(Sheets("References").Range("A2").Value) Then


--
Tim Zych
www.higherdata.com
Compare data in worksheets and find differences with Workbook Compare
A free, powerful, flexible Excel utility

"Corey ...." <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Why does the Combobox not DropDown with the below?
>
>
> If ComboBox2.Value <> Sheets("References").Range("A2").Value Then
> ComboBox23.Enabled = False
> If ComboBox2.Value = Sheets("References").Range("A2").Value Then
> ComboBox23.Enabled = True
> ComboBox23.DropDown
> End If
>

Corey,

I don't know if you pasted the code straight from your program, but as it is
it won't compile. You don't have an End If for your first If. It looks
like it should really be an If Then Else construct.

hth,

Doug

"Corey ...." <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Why does the Combobox not DropDown with the below?
>
>
> If ComboBox2.Value <> Sheets("References").Range("A2").Value Then
> ComboBox23.Enabled = False
> If ComboBox2.Value = Sheets("References").Range("A2").Value Then
> ComboBox23.Enabled = True
> ComboBox23.DropDown
> End If
>