User From Combo box help

[Kenny]

I am having some problems with my code. I want to select a choice in my
combobox, enter info into two text box's, then update the bookmarks in a
document when the command button is clicked. The text box's are working.
However I cannot get the Case "Army" to work. Please review my code and help
thanks!


Private Sub CommandButton1_Click()
Select Case ComboBox1
Case "Army"
Bookmarks("Address").Range
InsertBefore "Army Base"
End Select
With ActiveDocument
.Bookmarks("Text1").Range _
.InsertBefore TextBox1
.Bookmarks("Text2").Range _
.InsertBefore TextBox2
End With
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Army"
ComboBox1.AddItem "Navy"
ComboBox1.AddItem "Air Force"
ComboBox1.AddItem "Marines"
ComboBox1.Style = fmStyleDropDownList
ComboBox1.BoundColumn = 0
ComboBox1.ListIndex = 0
End Sub

 

[Greg Maxey]

Asked and answered.