Stop Loop

[pjd33]

I have the following code.

Do Until ActiveCell.Value = "End"
Range(Selection, Selection.End(xlDown)).Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Trend:=True
Selection.End(xlDown).Select
Loop

How do I make the loop stop when the selection doesn't find any more data?
At the moment it just goes to the bottom row of the workbook and fails.

I've kind of guessed how to make the loop happen in the first place and I'm
not that great (understatement) at VBA so help in simple terms would be
appreciated!

Many thanks

 

[pjd33]

Sorry I should have removed the "End" piece at the start. I added that having
read another post, but then relaised that it will never find the "End" in the
active cell.

 

[Tom Ogilvy]

Do Until ActiveCell.End(xldown).Row = rows.count
Range(Selection, Selection.End(xlDown)).Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Trend:=True
Selection.End(xlDown).Select
Loop

 

[pjd33]

That works, I'm sure it wasn't the hardest question you have ever had to
answer but I appreciated it - thanks very much for the quick response.

Could you explain what the = rows.count does?

 

[Bob Phillips]

It is an inbuilt count of the number of rows in the spreadsheet.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)