Thanks. I'll try that tomorrow. Enjoy the rest of your day!

"Don Guillett" wrote:

dim lr as long
lr=cells(rows.count,"a").end(xlup).row
for c=1 to lr

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"SLP" wrote in message
...
Hi,

How to I fix this so the loop stops when there is no more rows with data
on
it? The number of rows will change each time the tool is used and I don't
want to have to guess every few days as to what number to use. Thanks
much.

Sub MyLoop
For c = 1 to 1500
Call AllocateNew
Next c
End Sub



.