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