H
Helmut Weber
Hi Ed,
for a listbox on a userform:
Private Sub CommandButton1_Click()
Dim l As Long
On Error GoTo ende
For l = 1 To 10000000
ListBox1.AddItem Format(l, "0000000000")
Next
ende:
MsgBox l ' 123512 here an now
End Sub
For a formfield of type wdFieldFormDropDown,
I think, it is 25.
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000
for a listbox on a userform:
Private Sub CommandButton1_Click()
Dim l As Long
On Error GoTo ende
For l = 1 To 10000000
ListBox1.AddItem Format(l, "0000000000")
Next
ende:
MsgBox l ' 123512 here an now
End Sub
For a formfield of type wdFieldFormDropDown,
I think, it is 25.
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000