Save as In sequence

Hi all,

I have searched these forums (the answer is prob in here somewhere prob missed)

anyway

All I want is to automate a sequential number in only 1 cell. This is the code I have.

Private Sub Workbook_Open()
With Sheets("Loading Docket Copy").Range("J8")
.Value = .Value + 1
End With
End Sub

All good and it works , but. There is alot of amending out at work, and with the above code you ...type ya info in print then save close etc. Open the next one and the number has changed all good. So when I have to go back open the file and amend a stuff up or something, it'll add another number onto it so in other words. It was ment to be 10000 it is now 10001. (It’s easy enough for me to fix cause I'll know it has changed the number automatically) but if some else fixes a mistake , they wont even look at the docket number as it wasnt wrong in the first place, until it was reopened.

It would be also good if I could get a file saveAS going as well (that would change in sequence with the docket number)is this even possible?? I know you can make it save AS "blahblah.xls" but can I get it to change in line as well? i.e blahblah10001.xls

So all I’m after is.....how do you stop it from adding on that extra numbers (or even with auto time and date) but how can I get them to stop updating when I REopen the file.

here is the link to a demo file..
http://files-upload.com/305378/Copyo...10000.zip.html
unprotect sheet password is password

Thanks In advance,
Damo


edit> Sorry