i use VBA on user form to add new names to a work sheet, it is set t
add at the next empty row.

Set SourceWb = Workbooks.Open("f:\db1.xls")
ActiveWorkbook.Sheets("Cust").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True


Is there a way to have it add on a cretain row, to keep list i
alphabetical order

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

Greg

Is there any reason why you can not sort the list after you add a ne
name

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

why not use a macro and sor

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

Thanks madcat, that is exactly what i did

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