Enable a ComboBox using VBA

[TonyK]

Hi Graham

I thought I had it from your last post. This is my code but it does not
seem to work. This code is run when I select the FormField called
"ClinicType1".
Sub EnableCandABox2()
Dim bEnable As Boolean
Dim Check As String
With ActiveDocument
.FormFields("Specialty").Select
Check = .FormFields("Specialty").Result
If Check = "Children's & Adolescent Services" Then
.Unprotect Password:=""
.FormFields("ClinicType1").Select
With Dialogs(wdDialogFormFieldOptions)
.Enable = bEnable
.Execute
End With
.Protect NoReset:=True, Password:="", Type:=wdAllowOnlyFormFields
End If
End With
End Sub
Any help would be appreciated.
Thanks

 

[Graham Mayor]

Did you see my revised version of your macro?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>