Auto generate numbers

hello, I know this has been talked about many of times here but I can't find a solution that fits what I need. I have created this macro for my company and everything works great but the way I have it now each one of my locations enters there our "Collection #" in my macro. That has led to them entering duplicate numbers. I would like to be able to have the macro auto generate a number into this cell 'G2" for them starting at 0001. Then next time they open it it would enter 0002 and so on. I have tried different methods to no avail. below is the code for the macro. Thank you so much for any help.

Please Login or Register  to view this content.

Ok so I found this code and it works but when I close the workbook and reopen it it asks me to enter a number to start with again. It is not saving the count so it restarts everytime. how can I get this to save so it will work? Below is the code.

Please Login or Register  to view this content.