Compile Error: Procedure Too Large

My code returned a compile error saying my procedure was too large. I looked online and found that my code needs to be smaller than 64 kb in size. How do you find the size of your code and does anyone have suggestions on removing some of the redundancy from the code below to reduce the size? The code is repeated about 60 times so that's creates about 4500 lines of code.

Please Login or Register  to view this content.

Norie, thank you for the help with the code. I changed the code to what is shown below, which removed a few lines. It is still returning the error about the procedure being too large. Is it normal to split up something that repeats like this into separate functions?

Please Login or Register  to view this content.

I made the changes throughout the code. I tried to include comments to make it easier for someone to check my work since I'm going to share this with other people at work. If the comments take up too much memory, than your idea sounds better to have the comments in one spot since it is repetitive. I give that a try and let you know how it goes.

"I'll" give that a try.

Izandol, that was a pretty handy code. I had to do a little modification to my worksheet, but it looks like it is working. It took my 4500 lines of code down to under 100! I was wondering if there is a way to end the code early? Right now it is stepping through from 1 to 20, but there are going to be times when all 20 runs won't be needed. I don't know if you opened my original spreadsheet, but it depends on some input from the user in columns I and J. If I have blank cells in those columns, it gives me an error of "Object Variable not set" since it is looking for a value that hasn't been entered in. Norie and Izandol, thank you both for your help.

I think I have it worked out now. I haded another If statement to end the function if no values are added. The modified code is below.

Please Login or Register  to view this content.