incremental number when workbook opened 1

[ajking]

Is it possible to set up a number that programmatically increments each time a workbook is opened?TIA

 

[luceze]

If the number is in a cell you can put this code in the workbooks on open event.

Private Sub Workbook_Open()
Range("a1&quot = Range("a1&quot + 1
End Sub

Just change "a1" with whatever cell is storing your number.

HTH,
Eric

 

[SkipVought]

The other thing that I would do is hide the sheet if other users are going to be using this workbook.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[ajking]

Thanks for replying.
The scenario I have is there is a workbook template which users will pull in and do their work. they are then forced to SaveAs..
This means the original template isn't saved thus when it opens it will appear to be the first. So I reckon what I am asking is their a way of keeping a record of each time the template is opened even though the template isn't saved?
TIA

 

[SkipVought]

You might try this...

Private Sub Workbook_Open()
Range("a1") = Range("a1") + 1
Application.DisplayAlerts = False
With ActiveWorkbook
  .SaveAs .Path & "\" & "Tempname.xlt"
End With 
End Sub

Use whatever file name your is

VOLA!

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[ajking]

Skip
many thanks!