Thank you for the help!
Now I'm having a new issue, probably b/c I've never used macros, and may be getting in a little over my head.
My code seems to be faulty, can you find the error, please? :S
-----------------------------------------------------------------------
Code:
Sub OnExitDDListA()
Dim oDD As DropDown
Dim oFFs As FormFields
Dim StrNew As String
Set oDD = ActiveDocument.FormFields("NAME").DropDown
'Clear previous list
oDD.ListEntries.Clear
'Repopulate list based on user selection
Select Case ActiveDocument.FormFields("TYPE").Result
Case "Hotels"
With oDD.ListEntries
.Add "Best Western Hotel"
.Add "BonAir Hotel"
.Add "Econo Lodge"
.Add "Elect Inn"
.Add "Glenmore Inn"
.Add "HoBo Lodge"
.Add "Holiday Inn"
.Add "Howard Johnson Inn"
.Add "Travellers Inn"
.Add "Other"
End With
With ActiveDocument.FormFields("TYPE").DropDown
If .Value = 10 Then
StrNew = Trim(InputBox("Input your text", "Free text input"))
If StrNew = vbNullString Then
.ListEntries(10).Delete
.ListEntries.Add StrNew
.Value = 10
End If
End With
Case "Air Fare"
Case "Certificates"
With oDD.ListEntries
.Add "Aerial Platform"
.Add "Fall Protection"
.Add "WHMIS"
.Add "Other"
End With
End Select
lbl_Exit:
Exit Sub
End Sub