Hi

I try to explain a valuable way


Insert - Name - Define
For Name type (without quotation marks ): "Range_of_Name"
Refers to: =INDIRECT("Sheets1!A1A" &COUNTA(Sheets1!A:A)

...and add this Code into your Combobox

Private Sub Combobox1_GotFocus()
Me.Combobox1.ListfillRange = "Range_of_Name"
End Sub

Now you should get a whole List of names without blank fields :-)

Best regards from switzerland ;-

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