Hey Nigel,

All of my Comboboxes are populated with selections I've created. Cod
below: Hope this is what your looking for.


Private Sub UserForm_Initialize()
ComboBox1.AddItem "Out-of-Process"
ComboBox1.AddItem "In-Process"
ComboBox1.AddItem "Environmental"
ComboBox1.AddItem "TBD"
ComboBox1.AddItem "IRU"
ComboBox2.AddItem "A"
ComboBox2.AddItem "B"
ComboBox2.AddItem "N/A"
ComboBox2.AddItem "?"
ComboBox3.AddItem "PCI"
ComboBox3.AddItem "CI"
ComboBox3.AddItem "N/A"
ComboBox3.AddItem "?"
ComboBox4.AddItem "Y"
ComboBox4.AddItem "N"
ComboBox4.AddItem "N/A"
ComboBox4.AddItem "?"
ComboBox5.AddItem "Y"
ComboBox5.AddItem "N"
ComboBox5.AddItem "N/A"
ComboBox5.AddItem "?"
ComboBox6.AddItem "Y"
ComboBox6.AddItem "N"
ComboBox6.AddItem "N/A"
ComboBox6.AddItem "?"
ComboBox7.AddItem "JK"
ComboBox7.AddItem "Perm"
ComboBox7.AddItem "Other"
ComboBox7.AddItem "Reel"
ComboBox7.AddItem "Slack"
ComboBox8.AddItem "Y"
ComboBox8.AddItem "N"
ComboBox9.AddItem "T"
ComboBox9.AddItem "P"
ComboBox9.AddItem "N/A"
ComboBox9.AddItem "?"

Dim r As Long
Dim ws As Worksheet
Set ws = Worksheets("METRO")
With ws
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
r = ws.Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).Row
TextBox1.Text = ws.Range("D" & r).Value
TextBox2.Text = ws.Range("B" & r).Value
TextBox3.Text = ws.Range("G" & r).Value
TextBox4.Text = ws.Range("AH" & r).Value

End Su

--
Message posted from http://www.ExcelForum.com