You can determine a variable end row by

endrow=cells(rows.count,"a").end(xlup).row

change the "a" to the column desired.

--
Don Guillett
SalesAid Software

"Ken Johnson" wrote in message
oups.com...
Hi Rich,
Don't ask me why but I had to change EndRow = 8 to EndRow = 425 for all
400 salons to be done. Trial and error got me there. Loops are always
hard to follow.
To speed things up a bit I threw in "Application.ScreenUpdating =
False" at the start to prevent all the screen flashing. It can be put
anywhere in the code so long as it's before the Loop.
Ken Johnson