loop till no more data

[SLP]

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

 

[Don Guillett]

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

 

[John Bundy]

Change the sheet and column as needed
For c = 1 to Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row

 

[SLP]

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

 

[SLP]

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