I think your code is in the wrong place.
In a standard code module put this:

SUb ShowForm()
Userform1.Show
End Sub

Select the userform aclled userform1 and go to its code sheet. Add these:

Private Sub UserForm_Initialize()

with listbox1
.AddItem "A"
.Additem "B"
' ....etc
end with

End Sub


to grab data from a sheet instead, assuming your data is in a range named
"MyData"

Private Sub UserForm_Initialize()
Dim cell As Range
With ListBox1
For Each cell In Names.Item("MyData").RefersToRange
.AddItem cell.Value
Next
End With
End Sub

HTH
"windsurferLA" wrote:

In Excel 97 under WinXP pro, Im trying to create a combo box where a
user can select from a set of options or input a custom entry when he
adds a record to an spreadsheet set up as a data base. The location and
output of the dialog box must move down with each newly added row.

Using the €œforms€� toolbar, I have created drop down lists from which the
user could select options, but the canned dialog box tools do not seem
to allow for automatically repositioning the dialog box with the
addition of each new record. Furthermore, both the list box and the
combo box do not seem allow a custom entry; they both return just the
number of the row of the selected entry.

Ive also tried using Visual Basic to create a list box. Starting in
the VBA editor, I create a form (UserForm1) and a ListBox (ListBox1)
within the user form. I then tried running the following macro and
numerous variations on the theme based in the example given in Peter
Wrights €œBeginning Visual Basic 6.€� The VBA editor seems to recognize
the code as it automatically corrects the spelling and capitalization of
the various terms, but when I run it (press F5), an empty dialog box
appears on the spread sheet. The macro code looks like.

Private Sub Form_Load()
ListBox1.AddItem €œtest1€�
ListBox1.AddItem €œtest2€�
End Sub

Can someone point me to more information on the subject.