Thank you -- It worked perfectly.

I appreciate your time and help.
JasonK.







On 1 Dec 2006 14:13:02 -0800, "somethinglikeant"
wrote:

If your info is in column A with no header label, the following will
work:-

--------------------------------------
Sub Sorted()
[A2].Select: Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending
Do Until IsEmpty(ActiveCell)
x = ActiveCell.Offset(-1, 0)
If ActiveCell.Value = x Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
---------------------------------------

http://www.excel-ant.co.uk