Microsoft Office Forums - View Single Post - [Solved] Word 2007

macropod · 09-17-2012, 08:14 PM

That may be because you don't have 11 entries - your previous examples only had 10.

FWIW, you can get around the need to keep count of how many entries there are by using:

Code:

Sub FreeText()
Dim StrNew As String, i As Long
With Selection.FormFields(1).DropDown
  i = .ListEntries.Count
  If .Value = i Then
    StrNew = Trim(InputBox("Input your text", "Data Entry", .ListEntries(i).Name))
    If StrNew = vbNullString Then Exit Sub
      .ListEntries(i).Delete
      .ListEntries.Add StrNew
      .Value = i
  End If
End With
End Sub