Can someone please tell me what is wrong with this code? This goes into
an endless loop.
What I'm trying to do is more than is shown below. But, I'm just trying
to get the basic part to work before I plug in the rest of the code.
I've stared at it, and looked at other examples here, and I know it's
something simple that I'm overlooking.....
Your help is always appreciated.
J.O.

Sub OlderThanYearList()
'This will go through the list, and find all those records that are
older
'than a year. It will copy those records to the Year Old List file.

Worksheets("Official List").Activate
Application.Goto Reference:="Age"
Selection.End(xlDown).Select

Do Until IsEmpty(ActiveCell)

If ActiveCell.Value 360 Then
ActiveCell.Offset(0, 1).Select
Application.Selection.Value = "Copy"
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select

End If
Loop
End Sub