using VBA, incerting a row for alphabetical order

[GregJG]

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

 

[mudraker]

Greg

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

 

[madcat]

why not use a macro and sor

 

[Zygoid]

Thanks madcat, that is exactly what i did