see if this change to your code helps:

Private Sub Address_21_Change()

With Me

Select Case .Address_21.Text

Case "2306 Long Green Court"

.City_1.Text = "Valrico"

Case "3440 Oakcliff Road"

.City_1.Text = "Atlanta"

Case "7015 East 14th Aveneue"

.City_1.Text = "Tampa"

Case "1800 Taylor Drive"

.City_1.Text = "Gastonia"

End Select

End With

End Sub
--
jb


"Brian" wrote:

I am having trouble getting a text box to auto fill from a choice made from a
combo box.

Combo Box Name is Address_21
Text Box Name is City_1

My code is as follows:

'Auto Fill CES Spec Written Office

Private Sub Address_21_Change()

Select Case Address_21
Case ""2306 Long Green Court"
City_1 = "Valrico"
Case ""3440 Oakcliff Road"
City_1 = "Atlanta"
Case "7015 East 14th Aveneue"
City_1 = "Tampa"
Case "1800 Taylor Drive"
City_1 = "Gastonia"
End Select

End Sub

Can someone help me figure out what I did incorrectly?