Getting endless loop on DoUntil

[excelnut1954]

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

 

[Carim]

Hi,

Have you tried :

Do Until IsEmpty(ActiveCell.Value)

HTH
Carim

 

[Bob Phillips]

You only seem to move the activecell if the condition is met, you either
need to move that out of the If ... End If, or have an Else condition.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[excelnut1954]

Thanks, Bob.
Just not paying attention..... Appreciate the help
J.O.